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Preface 



The 1199/40 is a Home Computer about which Little is known. 
This is due primarily to the fact that the manufacturer has 
published very little information about its inner 
structure. Nothing could be obtained from Texas 
Instruments about the operating system called " Monitor 
and the Programming Language 6PL ( Graphic Programming 
Language) used for the TI99/4R. 

Therefore the operating system of the TI99/4R ( ROM and 
GROM'S ) has been analyzed in detail and the results are 
summarized in this book. Ule gave more attention to the 
parts not well known up to now, than to the program parts 
which, in most cases, are only used as support to assembler 
programs i.e. the mathematical routines. Since the 
information of the manufacturer has been very limited we 
cannot guarantee the accuracy of all commentaries. We 
apologize for any mistakes. 

We recommend reading two publications by Texas Instruments 
( Handbook Editor /Rssembler and TI 99 Console and 
Peripheral Expansion System Technical Data ) before reading 
this book. Knowledge of 9900 Rssembler is necessary. 

This book has been written on a TI 99/4R equiped with two 
Disk Drives using the Tl-Writer and a Mannesman/Tally MT 
1405F Printer. My acknowledgement goes to Dipl Ing Michael 
Weiand who helped me write this book by developing two 
Disassembler Programs and by giving me support. 

ULM January 1985 

Heiner Martin 
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THE ROM 



The operating system of the TI99/4R has several versions. 
In the ROM area between >0000 and >1FFF only minor changes 
have been evident up to now. Therefore the listing of only 
one version shall be enough. How little Texas Instruments 
has been able to make change in the ROM, can be seen for 
example, by the fact that the Extended Basic Modul accesses 
directly into some subroutines. The ROM contains the 6PL 
Interpreter, the interrupt routines, the Cassette routines, 
part of the Basic Interpreter and several Utility 
Subroutines . 

The GPL Interpreter 

GPL ( Graphics Programming Language ) is a language used 
for many purposes in the TI99/40. Programs in this 
language are contained in the GROM'S. In the second part 
of this book we will talk more about details of this 
language. The GPL Interpreter is located at addresses 
)0024 through >08FF and in some other small areas. There 
is little difference between the GPL Interpreter and the 
Basic Interpreter, since there are GPL commands, which are 
only or concern to the Basic Interpreter i.e. P0R5E, CONT 
and RTNB. 

The Interrupt Routine 

The interrupt routine is located at address >0900 through 
>0nBE and tries first to locate the cause of the interrupt. 
If the cause is not a console interrupt released by VDP, 
the corresponding D5R interrupt routines are scanned. If 
the cause is a cassette interrupt, then you jump into a 
cassette interrupt routine. In case of a console 
interrupt, which happens every fiftieth of a second in 
consoles with PflL systems and every sixtieth of a second in 
consoles of Rmerican standards, the automatic Sprite 
movement, the sound process and the QUIT key are checked. 
Finally you check to see if the screen has to be turned off 
and if the "User defined Interrupt Pointer" at address 
>83C4 is busy. In that case the routine will be executed' 
with BL *R^Z. On the other hand the interrupt is finished. 

The Utility Subroutines 

Several Utility Subroutines can be used in ROM by 
activating XML Command of GPL or by activating the XML 
Utility Subroutines of the Rssembler Module. This can be 
done by using two tables. The first table starts at >0CFP 
and contains the addresses of 16 more tables, which include 
the start addresses of the corresponding routines. Two of 
these address tables are contained in the ROM of the 
console, starting at >0D1R and >12R0. >0D1R contains the 
floating point routines mentioned in the Rssembler Handbook 
and some additional routines to round floating point 
numbers. >12R0 has been named by Texas Instruments "XTRB" 
and contains essentially the starting addresses of some 
Utility Subroutines which are important for the Basic 



- 7 - 



Interpreter. Some of these cannot be used by PssembLer 
programs since they Lead back to the GPL Interpreter. 

The Cassette Routine 

The Cassette Routine is Located at addresses >1346 through 
>15D3. The input or output of data into the cassette 
recorder port takes pLace in this area. Unf ortunateLy 
these routines and their main parts are not directLy usabLe 
by the RssembLer programs, since they go directLy back to 
the GPL Interpreter. 

The Basic Interpreter 

The ROM contains onLy part of the Basic Interpreter. It 
starts at >iaC8. Some of the XML XTRB routines aLso beLong 
here. The tabLe of the jump addresses for the Basic 
Routines starts at >1C3C. When the first bit is set in the 
address, the corresponding routine is then Located in Basic 
GROM'S 1 and 2. The best resuLts for seeing how the Basic 
Interpreter works can be obtained by starting at >1986 
CEXECute Basic). 



We aLso want to mention that the operating system contains 
a few routines which are onLy usabLe by extensions. These 
extensions, though, are not avaiLabLe at the present time. 
The GPL interpreter takes into consideration an extension 
which is Located at CRU .uidress >1B00. The operating 
system aLso supports, at Least partiaLLy a better decoding 
of the GROM's writing and reading addresses; thus the 
deveLopmenl of a specific extension for the moduLe port 
seems possibLe. 
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* Rnalvsis of TI 99/4fl ^ 

* Console ROM at >0000 through >1FFF * 

* 20.7.84 H. Martin * 



0000 


83E0 


DflTR 


>63E0 


RESET Vektor 


0002 


0024 


DOTR 


>00Z4 




0004 


83C0 


DflTR 


>83C0 


INT Level 1 


0006 


0300 


DRTR 


>0300 




0008 


83C0 


DRTR 


>63C0 


INT Level 2 


000n 


0P92 


DRTR 


>0R92 




000C 


30nP 


DRTR 


>30Rfl 


Clock frequency and header 


000E 


0460 


B 


@>02B2 


Keyboard scanning 


0010 


02B2 








0012 


0008 


DRTR 


>0008 




0014 


1E00 


DRTR 


>1E00 




0016 


0460 


B 


@>007R 


GPL interpreter, if in R9 GPL-byte 


0018 


007n 








001 P 


1E00 


DRTR 


>1E00 




001 C 


0460 


B 


@>0078 


GPL interpreter without interrupt 


001 E 


0078 








0020 


0460 


B 


e>04B2 


Keyboard scanning for CLERR 


0022 


04B2 










and GPL EXIT: 




0024 


020D 


LI 


13, >9800 


Load system pointer GROM read data 


0026 


9800 








0028 


020E 


LI 


14, >0100 


System flag 


002fl 


0100 








002C 


020F 


LI 


15, >8C02 


VDP write address 


002E 


8C02 








0030 


0200 


LI 


0, >0020 


GRQM address 


0032 


0020 








0034 


1013 


JMP 


>005C 




0036 


1000 


JMP 


>0038 


Turns off GPL extension 


0036 


1E00 


5BZ 


>0000 




003R 


02E0 


LWPI 


>2&0R 




003C 


260n 








003E 


0380 


RTWP 




and return 


0040 


2&0n 


DRTR 


>280fl 


BLWP vectors, turn on GPL extension and 


0042 


0C1C 


DRTR 


>0C1C 


start 



0044 


FFD8 


DRTR 


>FFD8 


XOPl 


0046 


FFF8 


DRTR 


>FFF8 




0048 


83R0 


DRTR 


>83R0 


X0P2 


004n 


8300 


DRTR 


>a300 




004C 


1100 


DRTR 


>1100 


CRU value 



QUIT key 
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* Notes to GPL interpreter: 
^ In general the registers are used as follows: 

D: R3=Rddress, R2=n.iia, R4HBvte=FLag VDP-RRM 

* S: R1=Rddress, R0=Data, R4LByte=Flag VPD-RRM 

a GPL code is located in R9 HByte, and R5 is flag at word commands 



004E 


06R0 


BL 


0050 


0664 




0052 


06R0 


BL 


0054 


0864 




0056 


C90D 


MOV 


\aazto 


8300 




005n 


C342 


MOV 


005C 


D11D 


MOVB 


005E 


C180 


MOV 


5PL ; 


interpreter \ 


0060 


DB46 


MOVB 


0062 


0402 




0064 


OB60 


MOVB 


0066 


aSED 




0068 


0402 




006R 


5820 


SZCB 


006C 


011B 




006E 


837C 




GPL interpreter 


0070 


0300 


LIMI 


0072 


0002 




0074 


0300 


LIMI 


0076 


0000 




0078 


D25D 


MOVB 


007n 


1105 


JLT 


007C 


D10S 


MOVB 


007E 


09C4 


5RL 


0080 


C164 


MOV 


0082 


0C36 




0084 


0455 


B 



§>0864 
§>0864 



0,6 



Push Grom address on substack 
The same once more 
4)6ROM Read data on substack ii 
New GROM read data 
GROM data in R4 



SZCB @>011B,§>a37C Clear condition bit in GPL status 



Permit interrupt 



*13,9 Fetch GPL byte in R9 

>0086 Negative? i.e. >80 through >FF 

9,4 

4,12 1. Nybble 

MOV §>0C36{4),5 Trick, address always even number! 



*5 



Execute routine 



0066 


04C4 


CLR 


4 




0088 


C149 


MOV 


9,5 




008R 


0245 


RNDI 


5, >0100 


Set flag for double (word) 


008C 


0100 






006E 


06R0 


BL 


§>077R 


Fetch D 


0090 


077R 








0092 


06C4 


SWPB 


4 


Flag in R4 HByte 


0094 


C0C1 


MOV 


1,3 


D into the right register 


0096 


C0a0 


MOV 


0,2 


0098 


0289 


CI 


9,}R000 




009n 


R000 






009C 


1R09 


JL 


>00B0 


Jump for format 5 commands 


009E 


2260 


COC 


e>0030,9 


Immediate operand? 


00R0 


0030 






00R2 


160C 


JNE 


>00BC 


Not from GROM! 


00R4 


C04D 


MOV 


13,1 


GROM read data in R1 


00R6 


□011 


MOVB 


*1 .0 


Fetch data ("5". IMM Value) 


00R8 


0601 


DEC 


1 



10 





06P0 


BL 


@)07Rfl 


Fetch 2 bytes 


00RC 


07fifl 








00HE 


1008 


JMP 


> 00C0 




00B0 


C203 


MOV 


9,8 


1 U 1 MICJ L 


00B2 


0386 


5RL 


8!8 




00B4 


0700 


SETO 





Data becomes >FFFF 


00B6 


C228 


MOV 


§)0BFE(a),8 Fetch address routine 


00B8 


0BFE 








00BP 


0458 


B 


Jt8 


Execute 



00BC 


06n0 


BL 


§>077n 


00BE 


0770 






00C0 


C209 


MOV 


3,8 


00C2 


0336 


SRL 


8 9 


00C4 


C226 


MOV 


§>0C4E(8 


00C6 


0C4E 






00C8 


6002 


C 


2,0 


•JdLfl 


0458 


B 





Fetch source 



,8 Fetch address routine 

Compare data D and 5 
Execute routine 



GPL CGE: 

00CC 11CE JLT >006O 
00CE F620 50CB 6)01 IB,©) 
00D0 011 B 
00D2 637C 

00D4 10CD JMP >0070 
GPL CH: 

00D6 1BFB JH >00CE 
00D8 10C8 JMP >006n 



Cond bit reset, if Low 
837C Set condition bit 

Once again ! 

Set condition bit, if high 
Reset and go on 



GPL CHE: 








00DP 14F3 


JHE 


>00CE 


Set condition bit if equal or 


00DC 10C6 


JMP 


>006R 


Reset and go on 


GPL C6T: 








00DE 15F7 


JGT 


)00CE 


Set condition bit if greater 


00E0 10C4 


JMP 


>006P 


Reset and go' on 


GPL CLOG 








00E2 0540 


INV 





PNO both data (INV+SZC) 


00E4 4080 


SZC 


0,2 




00E6 13F3 


JEQ 


}00CE 


Set condition bit 


00E8 10C0 


JMP 


>006R 


Reset and go on 


GPL CZ: 








00En C062 


MOV 


2,2 


0? 


00EC 02C4 


5T5T 


4 


CPU status in R4 


00EE 0804 


MOVB 


4,§>837C 


CPU status becomes GPL status 


00F0 837C 








00F2 10BE 


JMP 


>0070 


Pnd go on 


GPL CRRRY, 


OVF, H, GT: 




00F4 C003 


MOV 


3,0 




00F6 0RC0 


SLR 


0,12 


Command in R0 last 3 bits 


00F8 0900 


SRL 


0,13 




00FP 0160 


MOVB 


e>837C,5 


Fetch GPL status 


00FC 837C 






00FE 0P05 


5LP 


5,0 


Shift to R0! 


0100 16E6 


JOC 


>00CE 


Set condition bit 


0102 1083 


JMP 


>006R 


Reset condition bit 



GPL B: 

0104 0190 MOVB x13,6 Fetch new 6R0M address 

0108 1000 JMP >0108 

0108 0810 MOVB *H3,e>83ED 
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010PI 


83ED 








010C 


1009 


JMP 


>0060 


Write new address and on with reset 


GPL B5: 








010E 


D120 


MOVB 


§>a37C,4 


GPL statusbyte 


0110 


837C 






0112 


0R24 


SLR 


4,2 




0114 


1106 


JLT 


>0122 


rnnrli f i nn hi f Qpf fhfsn p^pniitp 


0118 


D11D 


MOVE 


*H3,4 


Skip address in 6R0M 


0118 


10R8 


JMP 


>006R 


Clear status and go on 


GPL BR: 








011R 


D120 


MOVB 


e>837C,4 




011C 


837C 








011E 


0n24 


SLR 


4,2 




0120 


IIFfl 


JLT 


>0116 


Set condition bit, no execution 


0122 


D81D 


MOMB 


X13,§>83F3 Fetch iump address in Lbyte R9 


0124 


83F3 








0126 


0249 


AND I 


9. >1FFF 


Eliminate command 


0128 


1FFF 








012n 


BIRD 


MOVB 


§>0002(13),6 Read high bit of actual 6R0M addn 


012C 


0002 








012E 


0246 


RNDI 


6, >E000 


The first 3 bits only 


0130 


E000 








0132 


El 89 


SOC 


9,6 


New address 


0134 


1095 


JMP 


>0060 


Execute and go on 


GPL flBS: 








0136 


0742 


RBS 


2 


Data RBS 


0138 


107fl 


JMP 


>022E 


Execute 


GPL NE6: 








0130 


0502 


NEG 


2 


Data NEG 


01 3C 


1078 


JMP 


>022E 


Execute 


GPL CLR: 








01 3E 


0702 


SETO 


2 


First >FFFF, then invert 


GPL INV: 








0140 


0542 


INV 


2 


Data INV 


0142 


1075 


JMP 


>022E 


Execute 


GPL FETCH: 








0144 


CI 84 


MUv' 


4.6 


Save VDP flag 


0146 


06R0 


BL 


§>0864 


Push actual GROM addn--.-. on substaci 


0148 


0664 








014P 


0644 


DECT 


4 




01 4C 


06R0 


BL 


e>0848 


Set stack pointer, write GROM^addre 


01 4E 


0848 






0150 


D09D 


MQVB 




Fetch data 


0152 


0882 


SRR 


2,8 


in R2 Lbyte 


0154 


05R4 


INC 


6)8300(4) 


Increment GROM address on stack 


0156 


8300 








0158 


05C4 


INCT 


4 


Old substack 


01 5P 


06R0 


BL 


e)084C 


Write old GROM address 


01 5C 


084C 








015E 


C106 


Moy 


6,4 


Old R4 


0160 


1066 


JMP 


>022E 


Execute 


GPL CR5E: 








0162 


0602 


DEC 


2 


Waller than 0, then go on (thus new 


0164 


1782 


JNC 


>006R 


0166 


D15D 


MOVB 


*13,5 


Counting of "PC" 


0166 


1000 


JMP 


>016R 


01 6n 


D15D 


MOVE 


*H3,5 




01 6C 


10FR 


JMP 


>0162 


Loop 
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GPL PUSH: 

D16E B80E 

0170 8372 

0172 D1R0 

0174 8372 

0176 0986 

0178 D3R0 

0170 83E5 

01 7C 8300 

01 7E 0460 

0180 0070 

GPL DECT: 

0182 09E0 



RB 14,@>8372 Increase data stack pointer(Rttention system flag) 
MOVB @>a372,6 Fetch pointer 
5RL 6,8 

MOUB §>83E5.§>8300(6) Push byte on data stack 



!)0070 



and go on 



5RL 0,14 



GPL I NET: 








0184 0600 


DEC 





-1 


GPL INC und 


SUB: 






0186 0500 


NEG 





Negate 


GPL DEC und 


ROD: 






0188 D145 


MOVB 


5,5 




018R 134B 


JEQ 


)0222 


Byte?, then execute 


018C R080 


R 


0,2 


Rdd word 


018E 104C 


JMP 


>0228 


Execute 


GPL AND: 








0130 0540 


INV 





Invert 


0192 4080 


SZC 


0,2 


Execute RND 


0194 1049 


JMP 


>0228 


and execute 


GPL QR: 








0136 E080 


SDC 


0,2 


Or 


0198 1047 


JMP 


>0228 


Execute 


GPL XOR: 








01 5R 2880 


XOR 


0,2 


Exclusive OR 


013C 1045 


JMP 


>0228 


Execute 


GPL ST: 








013E C080 


MOV 


0,2 


R0 in R2 


01R0 1046 


JMP 


>022E 


Execute 


GPL EX: 








01fl2 C242 


Moy 


2,9 


Save data 5 


01P4 C080 


Moy 


0,2 


Data D in Data 5 


01 R6 06R0 


BL 


§>0232 


D write new data 


01 R8 0232 








01 PR 06C4 


SWPB 


4 


Exchange VDP flag 


01 RC C0C1 


MOV 


1 ,3 


Exchange address 


01RE 101B 


JMP 


>01E6 


Restore old data and execute 


GPL 5RR: 








0160 0802 


SRR 


2,0 


Shift to R0 


01 B2 103D 


JMP 


>022E 


Execute 


GPL 5LL: 








01 B4 0R02 


SLR 


2,0 




01 B6 103B 


JMP 


>022E 




GPL SRL: 








01B8 D145 


MOVB 


5,5 


No word? 


01BR 1601 


JNE 


>01BE 




01 BC 7082 


SB 


2,2 


Mbyte 



- 13 - 



01 BE 


0302 


5RL 


2,0 




01C0 


1036 


JMP 


>022E 


Execu te 


GPL SRC: 








01C2 


D145 


MOyB 


5,5 


No word? 


01C4 


1602 


JNE 


>01Cfl 




01C6 


D0n0 


MOVB 


@>a3E5,2 


Lbyte in Hliyte 


01CS 


83E5 








0icn 


0B02 


SRC 


2,0 


Shift 


01CC 


1030 


JMP 


>022E 


Execu te 


GPL MUL: 








01CE 


C202 


MOV 


2,8 


Save data 


01 00 


D145 


MOVB 


5,5 


Word? 


01D2 


1601 


JNE 


>01D6 




01 D4 


7208 


SB 


8,8 


Mbyte 


01 D6 


3fl00 


MPY 


0,8 


Mu 1 1 ip Ly 


0108 


D145 


MOVB 


5,5 


Word? 


01Dfl 


1602 


JNE 


>01E0 




01DC 


D803 


MOVB 


3.§>83F1 


Mbyte R3 in Lbyte RB 


01 DE 


83F1 






01E0 


C08a 


MOV 


8,2 


New data 


01E2 


06R0 


BL 


@>0232 


Write first data 


01E4 


0232 








01E6 


C0a3 


MOV 


3,2 


Second data in R2 


01E8 


1022 


JMP 


>022E 


Execu te 


GPL DIV: 








01ER 


D805 


MOVB 


5,@>837C 


Save R5 


01 EC 


a37C 








01 EE 


C202 


MOV 


2,8 




01F0 


C080 


MOV 


0,2 




01F2 


C043 


MOV 


3,1 


S address in 1 


01F4 


0581 


INC 


1 


Rddress +1 


01F6 


1114^ 

U 1 *iQ 


MOVB 


5,5 


Word? 


01 F8 


1301 


JEQ 


>01FC 




01FR 


0581 


INC 


1 


Address +1 


01FC 


D104 


MOVB 


4,4 


VDP? 


01FE 


1303 


JEQ 


>0206 




0200 


06R0 


BL 


@>07FR 


Write address VDP 


0202 


07FR 








0204 


1002 


JMP 


>020R 




0206 


06R0 


BL 


e>07R8 


Fetch data from CPU RRM 


0208 


07Ra 








020n 


C240 


MOV 


0,3 




020C 


D145 


MOVB 


5,5 


Word? 


020E 


1603 


JNE 


>0216 




0210 


D260 


MOVB 


@>83F1 , 3 


Lbyte in Mbyte R9 


0212 


83F1 






0214 


0888 


5RR 


8,8 




0216 


3E02 


DIV 


2,8 


Divi sion 


0218 


13E3 


JNO 


>01E0 


No overflow, then write 


021P 


F820 


SOCB 


@)0013,§)837C Set overflow in condition 


021C 


0013 








021E 


a37C 








0220 


10DF 


JMP 


>01E0 


Hnd write data 


0222 


8620 


RB 


@>83E1 ,@>a3E5 Lbyte R0 + Lbyte R2 


0224 


83E1 








0226 


83E5 








0228 


02CB 


ST5T 


11 


CPU status becomes 


022R 


D80B 


MOVB 


11 ,§>a37C 


GPL status 


022C 


837C 








022E 


020B 


LI 


11 , >0070 


Trick return GPL interpreter 


0230 


0070 






0232 


D104 


MOVB 


4,4 


VPD address? 
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0234 


130F 


JEQ 


>0254 




0236 


D7E0 


MOVE 


§>B3E7,*15 Write VDP address 












023P 


0263 


OR I 




write Qola 


023C 


4000 








023E 


D7C3 


MOVE 


3,^t15 




0240 


D145 


MOVE 


5,5 


Word? 


0242 


1303 


JEQ 


>024R 




0244 


DBC2 


MOUB 


2,§>FFFE{15) Data is in VDP RRM 


0246 


FFFE 








0248 


0583 


INC 


3 






UOCIu 


MO'v'B 


§)a3E5,@>FFFE(15) 












024E 


FFFE 








0250 


0583 


INC 


3 




0252 


045B 


Q 


i^ll 


To GPL interpreter 








5,5 


Word? 


0256 


1301 


JEQ 


>025R 




0258 


DCC2 


MOVE 


2,*3+ 


Write data 






DWr D 


2 






nrr? 




2,Jt3+ 




025E 


0283 




3, >837E 


Was address screen buffer? 


0260 


837E 








0262 


16F/ 


JNE 


>0252 


No , end 


0264 


C18B 


MOV 


11,6 


Save relmn 


0266 




PI 


@>0680 


Screen address from YPT and 




uwOICI 








026P 


DBC2 


MOVE 


2,§>FFFE(15) Byte on screen 


026C 


FFFE 








026E 


0456 


B 




To GPL interpreter 


GPL subinlerpre ter for >00 


through >1F: 


0270 


0fl39 


SLR 


9,3 


0272 


0909 


5RL 


9,10 


Table value from command 


0274 


C129 


MOV 


e>0C3E(9),4 Fetch address from table 


0276 


0C3E 








0278 


0454 


B 




find execute 



GPL RRND: 








027R 


0204 


LI 


4, >6FE5 


Generate random number 


027C 


6FE5 








027E 


3920 


MPY 


e>a3C0,4 




0280 


83C0 








0282 


0225 


RI 


5, >7flB9 




0284 


7RE9 








0286 


C805 


MOV 


5,@>a3C0 


Load random number seed 


0288 


83C0 








028R 


D19D 


MOVE 


*13,6 


Fetch limit 


028C 


0986 


5RL 


6,8 


in Lbyte 


028E 


0586 


INC 


6 


♦ 1 


02S0 


04C4 


CLR 


4 




0292 


06C5 


5WPE 


5 




0294 


3006 


DIV 


6,4 




0236 


D820 


MOVE 


§>83EB,§>8378 Random number on source 


0298 


83EB 








023R 


8378 








029C 


1006 


JMP 


>02Rfl 


To GPL interpreter 


GPL BRCK: 








029E 


0207 


LI 


7, > 8700 


Prepare R7 for writing in VDP 


02R0 


8700 






02R2 


D81D 


MOVE 


Jt13,e>83EF 


Fetch colour 


02R4 


83EF 








02R6 


06R0 


BL 


@>083R 


Load register 7 


02R8 


08SR 
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02nR 0460 B e>0070 To GPL interpreter 
02RC 0070 



5PL 5CRN (Scan keyboard with return to GPL interpreter) 
02RE 0208 LI 11,>0070 Trick with return 
02B0 0070 



Keybor 
02B2 
02B4 
02B6 
02B6 
02BR 
02BC 
02BE 
02C0 
02C2 
02C4 
02CB 
02C8 
02Cfl 
02CC 
02CE 
02D0 
02D2 
02D4 
02D6 
02Dfi 
02Dn 
02DC 
02DE 
02E0 
02E2 
02E4 
02E6 
02Ea 
02Efl 
02EC 
02EE 
02F0 
02F2 
02F4 
02FB 
02Fa 
02FO 
02FC 
02FE 
0300 
0302 
0304 
0306 
0306 
030n 
030C 
030E 
0310 
0312 
0314 
0316 
0318 
03in 
031C 
031E 
0320 
0322 
0324 



d scanning 
C80B 
83D8 
06^0 
0864 
04CC 
1D15 
0160 
8374 
0365 
C185 
1312 
0200 
0FFF 



F0FF 



8806 
0072 
1B51 
□806 
8374 



a3C6 



0024 
30E5 
0405 
ld20C 
0008 



02F1 
a3E7 

0014 SLR 
0224 HI 
16E0 

DB44 MOVB 
0402 

DB60 MOVB 

83E9 

0402 

1000 JMP 
D81D MOVB 
8376 



Mnu 
nuv 


I I tV> OJUO 


Dave rc 1 1 


BL 


@>0864 


Save GROM addre 


CLR 


12 


CRU 


SBO 


>0015 


RLpha Lock 


MOVB 


@>a374,5 


Keyboard mode 


SRL 


5,8 




MOU 


5 6 




JEQ 


>02EC 





LI 


0, >0FFF 




DEC 


6 


1 R0=)0FFF 


JEQ 


>02F4 




LI 


0, >F0FF 




DEC 


6 


2 R0=>F0FF 




>P1?F4 






o 


q 


r 
\_ 






JH 


>0382 


>'^'? 


MOVB 


6,@>8374 


Keyboard mode 


SWPB 


6 




MOVB 


6,@>63C6 


Keybord debounci 


CLR 


5 




CLR 







ri R 


6 




JMP 


>032E 


Mode 0,3,4,5 


UH 1 ri 


>2925 




1 T 
L i 


12, >0024 


Mode 1 ,2 scan , 


LDCR 


@>0405(5),3 CRU 06 and 07 


LI 


12, )0006 




CLR 


3 




SETO 


4 




STCR 


4,5 


Fetch CRU 


SRL 


4,3 




JOC 


>0310 


No fire key? 


MOyB 


@>02F1C5) ,@)83E7 Lbyte R3 



4,1 

4,>16E0 GRDM address Joystick table 
4,@>0402(13) Write address 
@>83E3,e>0402(13) 



>0322 

^«13,@>837B Fetch values Y 
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PIT?*? 




1 luvo 




and X 


onoA 


Od/ / 










LlaLd 


nuv 


T *? 
d , d 


hire key . 






IMP 








DI'?DI1 


1 T 


1 , ; iliiciilio 


DCdn keys 














Di^r*? 


i_i_r\ 


c. 






Di^r7 




7 








1 T 

Li 






oi'3'ao 














DWTD 


1 






dluU 1 


1 rtrp 


1 , d 


1 narl TRI 1 
L.UOU L-IAIJ 




uOL. 1 


cnipn 

3Wr D 


1 




CI'? /I CI 




1 T 
1. 1 


1 ^ 1 / ululuO 






CIDII7R 




















30Y1H 


3 1 i_r\ 










T Ml J 




Inve r t bits 


iOJmH 




Mnu 
nuv 


1 1 
1 1 1 




oiQ^r 


1 bud 


IMP 


/ ICldbM 








nUvD 


A 7 




VijittVi 




HNUl 


A \ OIPOIOI 




\ojiz»c. 












A '1 dCI 




lo , M 






Id 1 1 


tJCli 


/ Ud/ H 


No k ey I 








1 1 


1 f 1 nnn? 




1 bei<:: 


IMP 


> lu JDIu 






ri4R 


Mnu 

1 lUv 


□ 1 3 


Mnrlo 1 nr 97 




iRoin 

1 DcJU 


IMP 


^^^70 






roiA*? 


nuv 


"? 9 






iRnn 

IDIuD 


IMP 


/ CIO / H 




one A 


DI70I'? 


PPTn 

3C 1 U 


C 






LuL 1 


nuv 


1 T 
1 / d 






luHdd 


RI □ 








IcIbKid 


Lieu 


d 






CIPAQ 

l^bod 


T Kir 


d 






lOH 1 ^ 


RI Q 


M , 1 


OU 1 L t kGy V3l,UG 


\0J/\0 


1 7Pn 
1 /rU 


IMP 


> UdbL 








nuv 


1 ( 1 




10 J/ T 




ipn 






luJ/ u 


01*7011 




1 f / iLllulLl 1 


jiiui mil tuup 


I0O/ o 












0!RC^1 










■1 Anr 


inr 


\ omR 


c 1 1 4.1, ao 


Vij/t. 


rDiAo 


nuv 


<^ > ^ 


Key pressed? 


lOJOlO 


1R14 

1 O 1 H 


IMP 


/ KIOHM 




i9JO<. 


i7i/!irR 
tjiub 


n R 


R 


CI. • * f 

oe t pointer Tor 




nAI7C 


Mm in 
nuVB 


b ; C > odL/ 




OI'SAC 


□dL/ 










DI7DIDI 


3[1 1 U 







IddtJH 






0,e>a3C6(5) 


DiQAr 
ludoU 


Odl-O 








CI'^AP 

l^doc 


1 dci<i 


iPn 


>0394 




Idddu 


IdbHU 


ni 


@)049a 


Time delay 


ladSti 


niXQA 
lOMdO 








uddH 




nuvD 


0,@>83C8 




uddb 


odLo 








niQQA 

luddo 


Ud^tlc) 


nuvB 


0,§)83C8(5) 


man 


A'3rA 
Odl_a 




* 




LtddL 




Mnu 
nuv 


5,5 


Mode 1 or 2? 


DI'^QP 

luddii 


1 RRr 

1 DbL. 


IMP 


>0478 


End 


ladHu 


nADIOl 


Mnun 
nuvD 


0,§>83C9 






odLa 








CI'^Q^ 

KIOH*f 


UOIulu 


MnuR 


0,§>83Cn 




03R6 


83CR 








03P8 


1067 


JMP 


>0478 


End 
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03Rn 


9360 


CB 


§>83E7,e>83C8(5) Same key as last time? 


03RC 


83E7 




03HL 


83C8 






03B0 


131R 


JEQ 


>03FR 


03B2 


0206 


LI 


6,>2000 Set 6PL status 


03B4 


2000 






03B6 


06R0 


BL 


@>0498 Time delay 


03B6 


0498 




03Bn 


D820 


MOVE 


§>83E7,e>a3C8 Set pointer (Lbyte R3) 


03BC 


a3E7 




03BE 


83C8 






03C0 


D360 


MOVE 


e>83E7,§>83C8(5) 


03C2 


83E7 




03C4 


83C8 






03C6 


C145 


MOV 


5,5 Mode 1 or 2 


03C& 


160C 


JNE 


>03E2 


03CR 


C303 


MOV 


3,12 


03CC 


022C 


RI 


12, >FFF8 


03CE 


FFF8 




03D0 


1108 


JLT 


>03E2 


03D2 


0201 


LI 


1,>0002 


03D4 


0002 




03D6 


093C 


5RL 


12.3 


03D8 


1801 


JOC 


>03DC 


03Dn 


0601 


DEC 


1 


03DC 


D660 


MOVB 


e>a3E7,§>83C8(1) 


03DE 


a3E7 






03E0 


83C8 






03E2 


D807 


MOVB 


7,§>a3C7 Last loop scanning on >83C7 


03E4 


83C7 




03E6 


D1E0 


MOVB 


§>a3C7,7 


03Efl 


83C7 




03ER 


0201 


LI 


1,>17C0 6R0M table mode 1 and 2 


03EC 


17C0 




03EE 


C145 


MOV 


5,5 


03F0 


160E 


JNE 


>040E 


03F2 


0201 


LI 


1,>1730 GROM table CNTRL 


03F4 


1790 






03F6 


0fl27 


SLR 


7,2 


03F8 


160R 


JOC 


>040E 


03Fn 


0201 


LI 


1,)1760 GROM table FCTN 


03FC 


1760 






03FE 


09F7 


5RL 


7,15 


0400 


1806 


JOC 


>040E 


0402 


0201 


LI 


1,>1730 GROM table SHIFT 


0404 


1730 






0406 


0607 


DEC 


7 


0408 


1302 


JEQ 


>040E 


040n 


0201 


LI 


1,>1700 GROM address table small letters 


040C 


1700 






040E 


R043 


R 


3,1 +Key value 


0410 


DB41 


MOVB 


1,§>0402(13) Write address 


0412 


0402 






0414 


DB60 


MOVB 


§>a3E3,e>0402(13) 


0416 


83E3 




0418 


0402 






04in 


1000 


JMP 


>041C 


041C 


001 D 


MOVB 


*13,0 Values from GROM 


041E 


CI 45 


MOV 


5,5 Mode 1 or 2? 


0420 


162B 


JNE 


>047a 


0422 


D820 


MOVB 


e>fl3CB.e>a3E7 Keyboard mode in R3 Lbyte 


0424 


63C6 




0426 


83E7 






0428 


06R0 


BL 


§>04R2 Compare 


042R 


04R2 




042C 


61 7R 


DRTR 


>617fl 
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042E 


160R 


JNE 


>0444 


Sm;4l 1 1 pt tpr"? 


0430 


04CC 


CLR 


12 




0432 


C0C3 


MOV 


3,3 


Mod€ (4 


0434 


1304 


JEQ 


>043E 




0436 


1E15 


SBZ 


>0015 


Rctivate RLPHP LOCK 


0438 


0BEC 


SRC 


12,14 




043n 


1F07 


TB 


>0007 


Scan RLPHP LOCK 


043C 


1302 


JEQ 


>0442 




043E 


7020 


SB 






0440 


03B4 








0442 


1D1S 


500 


>0015 




0444 


C0C3 


MOV 


3 , 3 


MnHo or ^ 


0446 


1607 


JNE 


>0456 




0446 


0500 


BL 


@>04O2 




044fl 


0402 








044C 


101F 


DOTO 


>101F 




044E 


1399 


JEQ 


>0382 


R0 between >10 and >1F 


0450 


9800 


CB 


, © > 0587 


5F? 


0452 


0587 








0454 


1B96 


JH 


>0382 




0456 


0603 


DEC 


3 


Mode 5 


0456 


160F 


JNE 


>0478 




045fl 


9800 


CB 


a \ 0025 


00 (CR)'? 


iJ45C 


0025 








045E 


130C 


JEQ 


>n478 




0460 


9800 


CB 


©5C^pro 


0F? 


0462 


02CO 








0464 


1803 


JH 


>046C 




0466 


F020 


SOCB 




Spf 1 <;( hit 


0468 


0470 








046R 


1006 


JMP 


>0476 




046C 


0600 


BL 


@>04O2 


Compa rs 


046E 


0402 








0470 


803F 


DOTO 


>809F 




0472 


1602 


JNE 


>0478 


<fTiA 1 t ^ r f H An > n r K i noo f* 
\\xj filial. V cr ■ viioii / uiu * 


0474 


5020 


5ZCB 


0>047C^ n 


Ppcp f 1 c f hi f 
iNCaC^ lav UXi. 


0476 


0470 








0478 


D600 


MOVB 


0,@>6375 


RSCI I value key on >837b 


047n 


8375 








047C 


0600 


BL 


@>0642 


Re s tore GROM add r e s s 


04 7E 


0842 








0480 


D806 


MOVB 




Set GPL ^fatti^ 


0482 


837C 








0464 


1306 


JEQ 


>0492 




0486 


D7E0 


MOVB 






0486 


83D4 






046n 


04E0 


CLR 




lloAP cfPRon ^1 mom if fmint'op 


048C 


8306 








046E 


D7E0 


MOVB 


@)0B61 «15 




0430 


0B61 








0492 


C2E0 


MOV 


@>83Da,11 


Fetch return 


0494 


83D8 








0436 


045B 


Q 


i*1 1 




Time 


dela 








0498 


020C 


(_1 


12 , >04E2 














049C 


060C 


DEC 


12 




049E 


16FE 


JNE 


>043C 




04n0 


045B 


B 


1*11 




Compare RQ 


wi th < 


status EQU 


It iNij IS in area ot riDyxe ano i 


of the data 


value 




0402 


C33B 


MOV 


*11+,12 




0404 


9300 


CB 


0,12 




04R6 


1004 


JL 


>04B0 
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04QB 9600 CB 0,€I>83F9 

04nP 63F9 

04PC 1B01 JH >04B0 

04RE 9000 CB 0.0 

04B0 045B B K11 



CLERR keyboard scanning(statu5 EQU, if pressed): 



04B2 


020C 


LI 


12,) 0024 


Load CRU keyboard 


04B4 


0024 






04B6 


30E0 


LDCR 


e>0012,3 


>00 


04B8 


0012 








04Bn 


0B7C 


SRC 


12,7 




04BC 


020C 


LI 


12, )0006 




04BE 


0006 








04C0 


3B0C 


STCR 


12,8 


Fetch CRU 


04C2 


2720 


CZC 


e>0036,12 


Right key? 


04C4 


0036 






04C6 


160PI 


JNE 


>04DC 




04C8 


020C 


LI 


12, >0024 


CRU 2nd key 


04Cn 


0024 




04CC 


30E0 


LDCR 


e>0074,3 


>03 


04CE 


0074 






04D0 


0B7C 


SRC 


12,7 




04D2 


020C 


LI 


12, >0006 




04D4 


0006 








04D6 


360C 


STCR 


12 8 


Fetch CRU 


0406 


2720 


CZC 


6)0036,12 


Right key 


04Dn 


0036 






04DC 


045B 


B 


*11 


Back 



GPL FMT: 








04DE 


04C9 


CLR 


9 




04E0 


04C3 


CLR 


3 




04E2 


06^10 


BL 


6)0880 


Write actual screen address 


04E4 


0680 








04E6 


D21D 


MOVB 


^t13,8 


Fetch 1st byte GROM 


04E8 


020C 


LI 


12, )8373 


Pointer substack 


04En 


6373 






04EC 


CI 46 


MOV 


8,5 


Save R8 IN R5 


04EE 


0n3& 


SLfl 


8,3 


Eliminate 3 bits 


04F0 


0968 


5RL 


8,11 


In Lbyte 


04F2 


0548 


IW 


8 


04F4 


09C5 


5RL 


5,12 


1st Nybble 


04F6 


C165 


MOV 


e)0CDC(5) 


,5 Fetch routine address 


04F6 


0CDC 








04Ffl 


0202 


LI 


2, )asm 


Return address 


04FC 


050n 








04FE 


0704 


SETO 


A 


Flag 


0500 


0455 


B 


X5 


Execute routine 



0502 


0R54 


SLR 


4,5 


Prepare flag 


0504 


6CB2 


C 


*2+ ,*2+ 


New return 


0506 


1001 


JMP 


)050R 




0506 


0R54 


SLR 


4,5 


Prepare flag 



050R 


D19D 


MOVB 


X13,6 Fetch byte from GROM 


050C 


R183 


R 


3,6 Rdd offset 


050E 


DBC6 


MOVB 


6.6)FFFE(15) Write data 


0510 


FFFE 






0512 


61C4 


S 


4.7 


0514 


0287 


CI 


7. )0320 


0516 


0320 






0518 


1405 


JHE 


)0524 


051 R 


0287 


CI 


7,)0300 Rddress too big? 
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i3b1C 


0300 








051 E 


1R02 


JL 


>0524 




0520 


0227 


RI 


7, >FD00 


Screen address 


0522 


FD00 








0524 


06n0 


BL 


e>05B8 


Set YPT and XPT 


0526 


05B8 








0528 


06R0 


BL 


e>0680 


Write screen address 


052R 


0880 








052C 


0588 


INC 


8 


End format command 


052E 


13DB 


JEQ 


>04E6 




0530 


0452 


B 


*2 


and on 


0532 


0P58 


SLR 


8,5 


Compute format 


0534 


61C8 


5 


8,7 




0536 


0708 


5ET0 


8 




0538 


10F0 


JMP 


>051R 




053fl 


0589 


INC 


9 




053C 


05DC 


INCT 


*12 


Increase substack 


053E 


D19C 


MOUB 


*12,6 


Fetch Last value 


0540 


0986 


5RL 


6.8 




0542 


D9R0 


MOVB 


§)83F1 ,§>8300(6) R8 Lbyte on Stack 


0544 


83F1 








0548 


8300 








0548 


10CE 


JMP 


>04E6 


Next format comnand 


054P 


065C 


DECT 




Decrease substack 


054C 


0609 


DEC 


9 




054E 


10CB 


JMP 


>04E6 


Next format coiimand 


0550 


C249 


MOV 


9,9 


End ? 


0552 


1330 


JEQ 


>05B4 


End with setting new XPT, YPT 


0554 


D11D 


MOVB 


*13,4 


Next byte from 6R0M 


0556 


D19C 


MOVB 


H12,6 


Fetch byte from stack 


0558 


D15D 


MOVB 


*13,5 


Next byte from GROM 


055n 


0966 


5RL 


6,8 




055C 


B98E 


RB 


1 4, §> 8300(6) Count on stack 


055E 


8300 








0560 


13F4 


JEQ 


>054R 


Go on 


0562 


DB44 


MOVB 


4,§>0402(13) Write GROM address 


0564 


0402 








0566 


DB45 


MOVB 


5,§>0402(13) 


0568 


0402 








056P 


10BD 


JMP 


>04E6 


Next format 


056C 


0288 


CI 


8, >FFE4 


End ? ( >1B original) 


056E 


FFE4 






0570 


13EF 


JEQ 


>0550 




0572 


1511 


J6T 


>0596 




0574 


C04D 


MOV 


13,1 




0576 


0288 


CI 


a, >FFE2 




0578 


FFE2 






057R 


1309 


JEQ 


>058E 




057C 


150n 


JGT 


>0592 




057E 


06n0 


BL 


e>05B8 


Set YPT and XPT 


0580 


05B8 








0582 


0508 


NE6 


8 




0584 


DR1D 


MOVB 


Jt13,§>835F(8) 


0586 


835F 








0586 


06R0 


BL 


e>0680 


Set screen address 


058fl 


0880 








058C 


10RC 


JMP 


>04E6 


Go on 


058E 


06R0 


BL 


§>0778 


Fetch address 


0590 


0778 








0592 


D0D1 


MOVB 


*^.3 
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0594 


10n8 


JMP 


>04E6 


Go on 


0596 


08P0 


BL 


e>0778 


Fetch address 


0596 


0778 








05SP 


0202 


LI 


2, >mHE 


Change return 


053C 


059E 








U ID 1 




* 1 + , o 




05n0 


10B5 


JMP 


>050C 


Write 


GPL RLL: 








05P2 


D15D 


MOVB 


4f13,5 


Fetch PSCII 


05P4 


06R0 


BL 


@>08P4 


Write VDP address 


05n6 


08P4 








05n8 


0207 


LI 


7, > 0300 


Screen 


05Rn 


0300 








05flC 


DBC5 


MOVB 


5,e>FFFE(15) 


05PE 


FFFE 








05B0 


0607 


DEC 


7 






lorL 


JNE 


>05RC 


Loop 


05B4 


020B 


LI 


11, >0070 


GPL return address 


05B6 


0070 








05BB 


0R37 


5LP 


7,3 




05Bfl 


D807 


MOVB 


7,§>837E 


New YPT (0) 


05BC 


837E 




05BE 


0R87 


SLR 


7,8 




05C0 


0937 


SRL 


7,3 




05C2 


D807 


MOVB 


7,§>a37F 


New XPT (0) 


05C4 


837F 








05C6 


045B 


B 


ifll 


and on 


GPL I/O: 








05C8 


C080 


MOV 


0,2 


Prepare address 


05Cn 


C043 


MOV 


3,1 


05CC 


R082 


P 


2,2 




05CE 


CI 22 


MOV 


@>0CEC(2),4 Fetch routine address 


0500 


0CEC 








05D2 


04C9 




9 




05D4 


0454 


B 


*4 


and execute 


I/O Sound: 








05D6 


024E 


RNDI 


14, >FFFE 


System flag 


05Dd 


FFFE 






05Dn 


E380 


SOC 


0,14 


Pointer 6R0M or VDP in system 


05DC 


C813 


MOV 


*3,e>83CC 


Load pointer sound List 


05DE 


83CC 






05E0 


D80E 


MOVB 


14,§>83CE 


Load sound byte 


05E2 


83CE 




05E4 


0460 


a 
O 


e>0070 


To GPL interpreter 


05EB 


0070 






I/O CRU Input: 






05E8 


0589 


INC 


9 


Flag R9 


I/O CRU Output 






05En 


C331 


MOV 


itl+,12 


CRU address 


05EC 


fl30C 


R 


12,12 


Complete 


05EE 


04C2 


CLR 


2 


05F0 


D0B1 


MOVB 


*1+,2 


Number bits in 2 


05F2 


0P42 


SLR 


2,4 




05F4 


E242 


SOC 


2,9 




05F6 


0B69 


SRC 


9,6 




05F8 


0269 


OR I 


9, >3012 


Prepare command 


05FR 


3012 






05FC 


D091 


MOVB 


*1 ,2 


Fetch pointer 


05FE 


06C2 


SWPB 


2 


0600 


0222 


PI 


2, >8300 


Complete address 


0602 


8300 
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0604 


0469 


X 


9 


Execute 


0605 


10EE 


JMP 


>05E4 


To 6PL interpreter 


6PL XML: 








060fi 


D25D 


MOVE 




Fetch data 


060R 


CI 09 


MOV 


9,4 




060C 


09C9 


5RL 


9,12 


In R9 2nd table 1*2 


060E 


0R19 


SLR 


9,1 




0610 


0^44 


SLR 


4,4 


In R4 1st table *2 


0612 


0984 


5RL 


4,11 




0614 


R129 


R 


§>0CFR(9),4 Fetch table address 


0616 


0CFR 








0616 


C114 


MOV 


^4,4 


Fo T /*■ h SiHH p o c c m ■ f i no 


061fl 


0694 


BL 


*A 


Execute 


061 C 


10E3 


JMP 


>05E4 


To GPL intorprGtcr 


GPL MOVE: 








061E 


D14E 


MOVB 


14 ,5 




0620 


0999 


SRL 


9,9 




0622 


1604 


JOC 


>062C 


li rmn i r m tfnno r* ^ nvncin i a^ca iia 
kJUilip 1 11 1 lUIiIUc r lillTtca Id^c VaLUc 


0624 


06R0 


BL 




Fs t ch nufnbe r 


0626 


077R 








0628 


C200 


MOV 


0,6 


In R6 


062fl 


1004 


JMP 


/ IlICJOM 




P162C 


D21D 


MOVB 


itl"^ A 

T 1 *J , o 


retcn nuntber 


062E 


0RF4 


SLR 


4, 15 


1 llitc LOSS 


0630 


D81D 


MOVB 


TV ijf^f ojr 1 


Complete number in R6 


0632 


83F1 






0634 


04C4 


CLR 


4 




0636 


0RC9 


SLR 


9,12 




0636 


06R0 


BL 


§)0756 


Determine destination 


063n 


0756 








063C 


C081 


MOV 


1,2 




063E 


B249 


RB 


9,9 




0540 


1702 


JNC 


>0646 




0642 


0224 


RI 


4, >0003 


Set VOP flag 


0644 


0003 






0646 


C1C4 


MOV 


4,7 




0646 


04C4 


CLR 


4 




064R 


06R0 


BL 


e>0756 


Determine source 


064C 


0756 








064E 


R104 


f) 


4,4 


R4 ii2 


0650 


C1R4 


MOV 


e>0CCE(4D,6 Source routine in R6 


0652 


0CCE 








0654 


R1C7 


R 


7,7 




0656 


C1E7 


MOV 


e>0CD4(7),7 Destination routine in R7 


0656 


0CD4 








065R 


06R0 


BL 


e>0664 


Push 6R0M address on substack 


065C 


0664 








065E 


0456 


B 


»6 


Execute source 


Source ROM 


or RRM: 




0660 


D2F1 


MOVB 


»1+,11 


Fetch 


0662 


0457 


B 


*7 


Execute destination 


Source VDP 


RRM: 






0664 


D7E0 


MOVB 


§>63E3,i*15 Write address 


0666 


63E3 








0666 


D7C1 


MOVB 


1,*15 




066n 


0561 


INC 


1 




066C 


D2EF 


MOVB 


§>FBFE(15),11 Fetch data 


066E 


FBFE 








0670 


0457 


B 


*7 


Execute destination 


Source 6R0M: 






0672 


DB41 


MOVB 


1,e>0402(13) Write 6R0M address 
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0674 0402 

0676 DB60 MQVB §>a3E3,§>0402(13) 

0678 e3E3 

067n 0402 

067C 0581 INC 1 

067E D2DD MOVB it13,11 Fetch data 

0680 0457 B *7 Execute destination 



Destination RRM: 

0682 DC8B MOVB 11,Jt2+ Write 
0884 1022 JMP >06CR Go on 



Destination GROM: 

0686 DB42 MOVB 2,§>0402(13} Write GROM address 

0688 0402 

068n DB60 mVB e>83E5, 6)0402(13) 

068C 83E5 

068E 0402 

0690 0582 INC 2 Next address 

0692 DB4B MOVB 11 .§>0400(13) Write into GRAM 

0694 0400 

0696 1019 JMP >06CR Go on 



Destination 


UDP 


register : 




0698 


93R0 


CB 


§>83ES.14 


R2 Lbyte >01? 


069n 


83E5 






069C 


1607 


JNE 


>06PtC 




063E 


23n0 


COC 


e>0012,14 


Version? 


06n0 


0012 








06^2 


1602 


JNE 


>06n8 




06n4 


026B 


OR I 


11, >a000 


Set 16k bit 


06^6 


8000 








06n8 


Da0B 


MOVB 


11,§>83D4 


Register value 1 


06nn 


83D4 






06flC 


D7CB 


MOVB 


11,JH5 


Write 


06PtE 


0262 


OR I 


2,) 0080 


VDP register 


06B0 


0080 






06B2 


D7E0 


MOVB §>a3E5,iH5 


Write from Lbyte R2 


06B4 


83E5 






06B6 


0582 


INC 


2 


Next register 


06B8 


1008 


JMP 


>06cn 


Go on 


Destination 


VDP 1 


=JRM: 




06Bn 


D7E0 


MOVB 


§)a3E5,4H5 


Write address VDP 


06BC 


83E5 








06BE 


0262 


OR I 


2, >4000 


Writing 


06C0 


4000 






06C2 


D7C2 


MOVB 


2,*15 




06C4 


0582 


INL 


2 


Next address 


06C6 


DBCB 


MOVB 


11,§>FFFE(15J Write dain 


06C8 


FFFE 









06CR 0608 DEC 8 End ? 

06CC 15C8 JGT >06SE No, go on 

06CE 0460 B §>083E Return GPL interpreter, set condition bit and 

06D0 0a3E GROM address from substack 



GPL CO INC: 






06D2 


C200 


MOV 


0,8 


06D4 


C0C8 


MOV 


8,3 


06D6 


70C2 


5B 


2,3 


06D8 


06C8 


5WPB 


8 


06DR 


06C2 


5WPB 


2 


06DC 


7202 


5B 


2.8 


06DE 


D01D 


MOVB 


1H3,0 


08E0 


0980 


SRL 


0,8 



Difference Y 

Difference X 

Fetch mapping value 
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0BE2 


D15D 


MOVB 


JH3,5 


Fetch coincidence table address 


06E4 


06C5 


5WPB 


5 




05E6 


D15D 


MOVB 


*13,5 




06Efi 


08C5 


5WPB 


5 




06En 


06R0 


BL 


6)0864 


Push GROM address on substack 


B6EC 


0864 








06EE 


DB45 


MOVB 


5,e>0402(13) Write table address 6R0M 


06F0 


0402 








0BF2 


0BC5 


SWPB 


5 




0BF4 


DB45 


MOVB 


5,§>0402(13) 


06F6 


0402 








0BF6 


06C5 


5WPB 


5 




0BFn 


D09D 


MOVB 


*13,2 


Fetch data from table 


0BFC 


1000 


JMP 


>06FE 




06FE 


D05D 


MOVB 


*13,1 




0700 


1000 


JMP 


>0702 




0702 


D19D 


MOVB 


H13,6 




0704 


1000 


JMP 


>0706 




070B 


D1DD 


MOVB 


*13,7 




0708 


C000 


MOV 


0,0 


Mapping 0? 


070P 


1302 


JEQ 


>0710 




070C 


0803 


SRR 


3,0 


Seek coincidence 


070E 


0808 


5RR 


8,0 




0710 


B207 


RB 


7,8 




0712 


111E 


JLT 


>0750 




0714 


B0C6 


RB 


6,3 




071 B 


111C 


JLT 


>0750 




0718 


3083 


CB 


3,2 




071 R 


151R 


J6T 


>0750 




071C 


3048 


CB 


8,1 




071E 


1518 


JGT 


>0750 




0720 


0981 


SRL 


1 ,8 


Which table value is needed? 


0722 


0581 


INC 


1 




0724 


0983 


SRL 


3,8 




0726 


3843 


MPY 


3,1 




0728 


0988 


SRL 


8,6 




072R 


R088 


R 


8,2 




072C 


C002 


MOV 


2,0 




072E 


0242 


RNOI 


2, >FFF8 




0730 


FFF8 








0732 


6002 


■ 5 


2,0 




0734 


0832 


SRR 


2,3 




0736 


R085 


R 


5,2 




0738 


8CB2 


c 


*2+ ,*2+ 




073fl 


DB42 


MOVB 


2,§>0402(13) Write GROM address of the right data 


073C 


0402 








073E 


0580 


INC 







0740 


DB60 


MOVB 


§>83E5,§>0402(13) 


0742 


83E5 








0744 


0402 








0746 


0202 


LI 


2, >2000 




0748 


2000 








074n 


D0DD 


MOVB 


»13,3 


Fetch value 


074C 


0R03 


SLR 


3,0 


Coincidence? 


074E 


1801 ' 


JOC 


>0752 




0750 


04C2 


CLR 


2 




0752 


0802 


MOVB 


2,§>837C 


Set GPL status 


0754 


837C 








0756 


10BB 


JMP 


>06CE 


Return GPL interpreter with POP GROM address 










substack 


0758 


B249 


RB 


9,9 


Check kind 


075R 


180F 


JOC 


>077R 




075C 


D0DD 


MOVB 


*H3,3 


Fetch destination in R3 


075E 


0584 


INC 


4 


Flag 


0760 


081 D 


MOVB 


*13,§>a3E7 
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0762 


83E7 








0764 




MRU 
1 iLPv 


1 1 , 1^ 


_ 

save return 


PI7RR 

CI/ uu 




□n 

HD 


>0772 




0768 


1704 


JNC 




076P 


D05D 


MOVB 


*13 1 




076C 


06R0 


BL 


§>077E 


076E 


077E 








0770 


R0C0 


fl 


0,3 




0772 


C043 


MOV 


3,1 




0774 


0S19 


5RL 


9.1 




0776 


045C 


B 


iH2 


Return 



0778 04C5 CLR 5 



GPL addressing modesCfetch 




0770 


D05D 


MQVB 


J*13, 1 


Fetch GPL bvte 


077C 


111E 


JLT 


>07BO 


NeOritivP? Jumn format 


077E 


0981 


SRL 


1 ,8 


0780 


0221 


01 


1 , >8300 


Scratch pad address 


0782 


8300 






0784 


0281 


CI 




Character buffer? 


0786 


8370 






0788 


160F 


JNE 


>07O8 


Gene r a I 


078R 


04CO 


CLR 


10 




078C 


C18B 


MOV 


11 6 




078E 


0600 


BL 


6 > 0884 




0790 


0884 








0792 


C2C6 


MOV 


6 11 




0794 


D02F 


MOVB 


§>FBFE(1S) 


,0 Fetch byte 


0796 


FBFE 






0798 


2300 


COC 


§> 0072, 14 


Check multicolor 


079R 


0072 






079C 


1603 


JNE 


>07O4 




079E 


1701 


JNC 


>07fl2 




07R0 


0040 


SLO 


0,4 


Prepare multicolor 


0702 


0940 


SRL 


0,4 


0704 


D800 


MQVB 


0,e>837D 


in character buffer 


0706 


837D 








0708 


D011 


MOVB 


*1,0 


Fetch data from CPU 


0700 


D145 


MOVB 


5,5 


Word? 


07OC 


1602 


JNE 


>07B2 




07RE 


0680 


SRO 


0,8 




07B0 


045B 


B 


H11 


Return 


07B2 


Da21 


MOVB 


§>0B01C1),§>83E1 Fetch 2nd byte 


07B4 


0001 








07B6 


83E1 








07B8 


045B 


B 


*11 





GPL addressing modes II through V: 



07BO 


D61D 


MOVB 


if13,§>83E3 




07BC 


83E3 






07BE 


C281 


MOV 


1,10 




07C0 


0241 


ONDI 


1, >0FFF 




07C2 


0FFF 






07C4 


0281 


CI 


1 , )0F00 


Extended range? 


07C6 


0F00 






07C8 


1103 


JLT 


>07O0 


No , J ump 


07Cfl 


0081 


SLO 


1,8 


07CC 


oaiD 


MOVB 


Xl3,§>a3E3 


R1 address extended range 


07CE 


83E3 






07D0 


0020 


SLO 


10,2 


Test 2nd bitCMode II and IV) 


07D2 


1708 


JNC 


)07E4 


No , i ump 


07D4 


D19D 


MOVB 


i*13,6 


Fetch index 


07D6 


0986 


SRL 


6,8 




07D8 


0026 


MOVB 


@>8300C6),0 Oata in R0 
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07Dn 


8300 






07DC 


D62B 


MOVB 


§)8301(BJ,©>83E1 


07DE 


6301 






07E0 


63E1 






07E2 


R040 


P 


0,1 R1 = Indicated address 


07E4 


0niP 


5LP 


10.1 Test VDP RRM 


07E6 


1715 


JNC 


>0812 No, jump 


07E8 


05C4 


INCT 


4 Flag VDP 


07Efl 


0nifl 


SLR 


10,1 Test indirect 


07EC 


1706 


JNC 


>07FR No, jump 


07EE 


D021 


MOyB 


§>6300(1),0 Fetch value 


07F0 


8300 






07F2 


D621 


MOVB 


§>6301(1),§>63E1 


07F4 


8301 






07F6 


asEi 






07Fa 


C040 


MOV 


0,1 Value in R1 


07Ffl 


D7E0 


MOVB 


§>83E3,it15 Write address VDP 


07FC 


63E3 






07FE 


D7C1 


MOVB 


1 ,*15 


0600 


0P60 


SLR 


0,6 


0602 


D02F 


MOVB 


e>FBFE(15),0 Data in R0 


0604 


FBFE 






0606 


D145 


MOVB 


5,5 Word? 


0606 


13D2 


JEQ 


>07RE 


080n 


D82F 


MOVB 


§>FBFE(15) ,@>83E1 2nd byte in R0 


060C 


FBFE 






060E 


83E1 






0610 


045B 


B 


Return 


0612 


0P1P 


SLR 


10,1 Test indirect 


0614 


17B5 


JNC 


>0780 Jump if direct 


0616 


0261 


CI 


1,>007C GPL statusbyte? 


0816 


007C 






061 P 


1605 


JNE 


>0826 


061 C 


D060 


MOVB 


§>8372,1 Fetch data stack pointer 


061 E 


8372 






0620 


780E 


SB 


14,e>6372 Decrease 


0622 


8372 






0624 


10RC 


JMP 


>077E Go on 


0626 


0061 


MOVE 


§>8300(1),1 Fetch from CPU RRM 


0626 


6300 






082n 


10R9 


JMP 


>077E Go on 


GPL RT6R: 






062C 


06P0 


BL 


§>0842 POP 6R0M address from subs tack 


062E 


0642 






0630 


C364 


MOV 


e>6300(4),13 Data substack new GRMRD 


0632 


6300 






0634 


DB44 


MOVB 


4,e>0400(13) Write stack value in new GROM 


0836 


0400 






GPL RTN: 






0636 


5620 


5ZCB 


§)011B,§>837C Reset condition bit 


063n 


011B 






083C 


637C 






GPL RTNC: 






063E 


020B 


LI 


11,>0070 Return GPL interpreter 


0640 


0070 




POP 6R0M address 


from substack and write address: 


0842 


D120 


MOVB 


6>6373,4 GROM address from subroutine stack 


0644 


8373 






0646 


0984 


5RL 


4,6 


0848 


0660 


DECT 


@>8373 Decrease stack pointer 


084n 


8373 
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084C 
0845 
0650 
0852 
0854 
0856 
0858 
085P 
085C 
085E 
0860 
0862 



DB64 
8300 
0402 
DB64 
8301 
0402 
045B 
D19D 
020B 
0060 
0810 
83ED 



MOyB §>8300(4) ,§>0402(13) Write CROM address 
MQVB §>8301(4),§>0402(13) 



B *11 Return 

MOVB *13,6 Reading from BROM 

LI 11,>00B0 Trick return with writing GROM address from R6 



MOVB Jt13,e>83ED R6 complete 



PUSH 


actual 


6RdM 


address on 


0864 


05E0 


INCT 


§>8373 


0866 


8373 






0868 


0120 


MOVB §>8373.4 


086P 


8373 






0a6C 


0984 


5RL 


4.8 


086E 


D92D 


MOVB 


e>0002(13} 


0870 


0002 






0872 


8300 






0874 


0920 


MOVB 


e>0002(i3} 


0876 


0002 






0878 


8301 






087P 


0624 


DEC 


e> 8300(4) 


087C 


8300 






087E 


045B 


B 


if 11 



subroutine stack 
Increase stack pointer 

,e>a300(4) Address 6RDM on stack 

,@>8301(4) 

Correct address 
Return 



Screen address from YPT and XPT for writing; 
0880 020n LI 10,>4000 Write 
0882 4000 



0884 


D1E0 


MOVB ©>837F,7 


0886 


837F 


0688 


23R0 


CGC §>0072,14 


088n 


0072 


066C 


130E 


JEQ >08nP 


088E 


0P37 


SLR 7,3 


0890 


0987 


SRL 7,6 


0892 


01 E0 


MOUB e>837E,7 


0694 


837E 


0696 


0937 


SRL 7,3 


0898 


PI CP 


P 10,7 


089P 


D7E0 


MOVB §>aJEF,4f15 


089C 


83EF 


089E 


D7C7 


MOVB 7,*15 


08P0 


61 CP 


5 10,7 


08P2 


045B 


B *11 



Screen line 
Check multicolor 



Fetch row 



Return 



Write on screen at 
08P4 0207 LI 7, > 4000 
06P6 4000 

08P8 10F8 JMP >08SP 



Prepare address for multicolor mode: 



06PP 


0020 


MOVB §>837E,0 


06PC 


837E 






06RE 


C200 


MOV 


0,6 


08B0 


0R58 


SLR 


6,5 


08B2 


0908 


SRL 


8,13 


08B4 


09B0 


SRL 


0,11 


08B6 


0R80 


SLP 


0,8 


08B6 


R00e 


P 


8,0 


06BP 


C207 


MOV 


7,8 
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ClLJOl- 


0247 




7 1 ^FWR 






3E00 










0967 


SRL 


7 S 




08C2 


R1C0 


p 


7 






01997 


QT 
















0&C6 


D7E0 




@>fl3EF *15 




lLJOi_ri 


A^FF 








DiArr 


nQAA 


Dl_H 


A A 






x\7ri 

U/l./ 


KinuR 
riuvD 


7 ^flS 






lu^OO 


TT 
U i 


1 1 1 / u^OH 




DIAIT? 










RAD^l 
KIOUH 




IMF 


>08R2 








KinUR 


e>FBFE(15).0 Read Data from VDP in 


RADA 


FRFF 












MO^B 


§>837D.a 


Character buffer in R8 


piAnr 














□NDT 


a,>0F00 




06E0 


0F00 










1 An4 


inr 


>08EC 






pt9An 


□KIMT 
rtnui 


0, >0F00 




0AF6 


0F00 








C1APA 

KIOCO 






8,4 








IMP 


>08F0 










0, >F000 




08EE 


F000 








08F0 


0267 


OR I 


7 , >4000 


Writing address 


08F2 


4000 








luOHu 


Rl 


e>083R 


Write address 


CIAFR 
iJorD 


luOSH 








CIAFA 


rvutiO 


p 


8,0 




08Fn 


DBC0 


MOVB 


0,e>FFFE(15) Write data 


08FC 


FFFE 








08FE 


0456 


B 


*6 


Return 


Interrupt routine 




0S00 


0300 


LIMI 


)0000 


Disable interrupt 


0S02 


0000 








0904 


02E0 


LWPI 


>83E0 


Load 6PLWS! 


0906 


83E0 








0908 


04CC 


CLR 


12 


Clear CRU 


090P 


23n0 


COC 


§>0032,14 


Cassette interrupt? 


090C 


0032 






0S0E 


1602 


JNE 


>0914 


No , j ump 


0910 


0460 


B 


§>1404 


0912 


1404 








0914 


1F02 


TB 


>0002 




0916 


1619 


JNE 


>094R 


Jump, if VDP interrupt 


0918 


020C 


LI 


12,>0F00 


Clear CRU 


091 R 


0F00 








091 C 


1D01 


5B0 


>0001 




091 E 


1E00 


5BZ 


>0000 




0920 


022C 


Rl 


12,>0100 




0922 


0100 








0924 


028C 


CI 


12, >2000 




0926 


2000 








0928 


130E 


JEQ 


>0946 


End CRU 


092P 


1D00 


5B0 


>0000 




092C 


9820 


CB 


e>4000,§>000D ROM exists 


092E 


4000 








0930 


000D 








0932 


16F5 


JNE 


>091E 


No, next 


0934 


C0R0 


KOU 


e>400C,2 


Intlnk? 


0936 


400C 








0938 


13F2 


JEQ 


>091E 


No, next ROM 
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093R 


C002 




2.0 




093C 


C0fl2 




@>0002(2J,2 Fetch INT address 


093E 


0002 








0940 


0692 


BL 


«2 


Ond e>cecute 


0942 


C090 


MOV 


*0,2 


Next Int routine 


0944 


10F9 


JI-1P 


>0938 




0946 


0460 


8 


@>0OB6 


End interrupt from CRD 


0948 


0088 






094P 


1D02 


5B0 


> 0002 




094C 


D060 


MQVB 




Fetch interrupt flag byte 


094E 


a3C2 






0950 


0011 


SLfl 


1,1 


No interrupt permitted 


0352 


1702 


JNC 


>0958 


0954 


0460 


B 


@ > 0084 


1 1 Id 1 J uiiip 


0956 


0084 






0956 


0011 


SLO 


1 1 




0950 


1846 


JOC 


>09E8 


No sprits movG p€rrnitt6d; thGn jump 


095C 


D320 


MOVB 


a ) M370 1 2 


i^uiliuci apt 1 Lcf9 


095E 


8370 






0960 


1343 


JEQ 


>09E8 


Na Qnri ^ f3 fsnri 


0962 


098C 


5RL 


12,8 


0964 


0202 


LI 


2 , > 8800 


VDP RD 


0966 


8600 








0966 


0203 


LI 


3 > 8C00 


VDP WD 


096fl 


8C00 








036C 


0208 


LI 


Pi )n7AC^ 


sprite motion table 


096E 


0780 








0970 


D7E0 


MOVB 


SI / Owr 1 / ~ 1 \j 


Write address motion table 


0972 


83F1 








0974 


D7C8 


MOVB 


a ,iti5 




0976 


04C4 


CLR 






0378 


D112 


MOVE 


i<-2 4 


Datas Y velocity 


097R 


04C6 


CLR 


5 


097C 


D192 


MOVB 


'^c f D 


Uatas A velocity 


097E 


0844 


5Rfl 


4 ,4 


0980 


D152 


MOVB 


4^2,5 


Qi IV1 1 lany riafac 


0962 


0645 


5R0 


5,4 


0984 


0144 





4,5 




0966 


D1D2 


MQVB 


^*2 ,7 




0988 


0646 


5R0 


R 4 




09dn 


0847 


5RH 


7 , 4 




098C 


fl1C6 





6 7 




098E 


0228 


01 




Hddress sprite descriptor table 


0930 


FBa0 






0992 


D7E0 


• MOVB 




Write address 


0334 


83F1 








0336 


D7C8 


MOVB 






0338 


04C4 


CLR 






033R 


D112 


MOVB 




retch position 


099C 


0105 





5,4 


039E 


0284 


CI 


4 , >C0FF 




09f)0 


C0FF 








0902 


1209 


JLE 






0904 


0284 


CI 




I— ompute new position 


0906 


E000 








0906 


1806 


JH 






0900 


C145 


MOV 






09OC 


1502 


JG1 






09flE 


0224 


01 


4 > C000 




09B0 


C000 






09B2 


0224 


01 


4 , > 2000 




09B4 


2000 








09B6 


04C6 


CLR 


6 




09B6 


0192 


MOVB 


Jt2,6 
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09BR 


R187 


R 


7,6 




09BC 


0266 


OR I 


6 , > 4000 


VDP address for writing 


09BE 


4000 






03C0 


D7E0 


MOVB 


e>83F1,i^15 




03C2 


asFi 








09C4 


D7C8 


MOVE 


8,iH5 




09CB 


D4C4 


MOVB 




Write positions 


09Ca 


0228 


PI 


B, >0482 




09Cfl 


0482 








09CC 


D4C6 


MOVB 


6,*3 




09CE 


06C5 


5WPB 


5 




0900 


D7E0 


MOVB 


e>83F1,iH5 Write address motion table 


09D2 


83F1 








0904 


D7C8 


MOVB 


8,*15 




^906 


0345 


5RL 


5,4 




0908 


D4C5 


MOVB 


5,^*3 


Write auxiliary values 


09Dn 


06C7 


5WPB 


7 




09DC 


0947 


5RL 


7,4 




09DE 


D4C7 


MOVB 


7,9*3 




09E0 


0228 


RI 


8, >C002 


New address motion table 


09E2 


C002 








03E4 


0B0C 


DEC 


12 


Last sprite? 


09E6 


15C4 


J6T 


>0370 


No, once again 


0gE6 


0R11 


SLR 


1,1 


0gEP 


183D 


JOC 


>0R66 


No sound process jump 


09EC 


D0R0 


MOyB 


§>83CE,2 


Number of sounH byte 


09EE 


83CE 






09F0 


133R 


JEQ 


>0R66 


None, then end 


09F2 


780E 


SB 


14,@>83CE 


-1 


09F4 


83CE 








09F6 


1B37 


JNE 


>0R66 


Not 0, then end 


03F8 


C0E0 


MOV 


§>83CC,3 


Pointer sound list 


09FR 


83CC 








03FC 


C14E 


MOV 


14,5 




03FE 


0915 


5RL 


5,1 


6R0M or VDP? 


0R00 


180R 


JOC 


>0R16 


1=VDP, then jump 


0n02 


06R0 


BL 


§>0864 


Push GROM address on substack 


0n04 


0864 








0n06 


0205 


LI 


5, >0402 




0n08 


0402 








0n0n 


R14D 


R 


13,5 




0n0c 


0543 


MOVB 


3,Jt5 


Writfa fiRPM nHHpdcR 

W ■ X V C wl\UI 1 CSuUI 


0R0E 


0560 


MOVB 


©>a3E7 if5 




0ni0 


83E7 








0ni2 


C18D 


MOV 






0ni4 


1007 


JMP 


>0R24 




0ni6 


0205 


LI 


5 >flC02 

*J t f U Www 


VOPWR 


0ni8 


8C02 








0nin 


0560 


MOVE 


a>A3F7 «5 




0P1C 


83E7 








0niE 


0543 


MOVB 






0n20 


0206 


LI 


6, >6a00 


VOPRD 


0n22 


8800 








0n24 


0216 


MOVB 


*6,8 


Fetch byte 


0n26 


130F 


JEQ 


>0R46 


0? 


0n2a 


3220 


CB 


e>0R3C,8 




0n2n 


0H3C 








0n2C 


130R 


JEQ 


>0R42 


>FF? Yes, switch to anotherCwell 


0n2E 


0388 


5RL 


8,8 


Number 


0n30 


R0C8 


R 


8,3 


To address 


0R32 


0616 


MOVB 


»6,e>8400 


Load sound process 


0fl34 


6400 






0R36 


0506 


DEC 


8 


How many bytes? 


0R38 


16FC 


JNE 


>0R32 


Next byte 


0fl3R 


05C3 


INCT 


3 


0H3C 


0036 


MOVB 


ifB,2 


Fetch duration 
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0R3E 


1303 


JEQ 


>0H52 




0n40 


1003 


JMP 


>0R54 


Go on 


0R42 
0R44 


2BR0 


XQR 


@>0378, 14 


Change system flags 


0378 






0R46 


D0D6 


MOVB 


^^6,3 


Fetch new address 


0R48 


0202 


LI 


2, >0100 


Sound byte >01 


0R4R 


0100 






0R4C 


D816 


MOVB 


*6,e>83E7 


Complete address 


0R4E 


83E7 








0R50 


1001 


JMP 


>0R54 


Once again 


0R52 


7082 


SB 


2,2 


0R54 


C603 


Moy 


3,@>83CC 


New pointer sound list 


0R56 


83CC 






0R56 


D802 


MOUB 


2,§)a3CE 


Sound byte 


0fl5R 


83CE 






0fl5C 


0285 


CI 


5, >8C02 


From VDP? 


0fl5E 


8C02 








0R60 


1302 


JEQ 


>0R66 




0R62 


06R0 


BL 


§>0842 


POP GROM address from subs tad 


0R64 


0842 








0R66 


0H11 


5Lfl 


1.1 




0R68 


1600 


JOC 


>0R84 


No QUIT key, then jump 


0R6R 


020C 


LI 


12, >0024 


Load CRU 


0fl6C 


0024 








0RBE 


30E0 


LDCR 


§)0012,3 




0R70 


0012 






0R72 


0B7C 


SRC 


12,7 




0fl74 


020C 


LI 


12, >0006 




0R76 


0006 








0fl7a 


3605 


5TCR 


5,8 


Fetch CRU 


0fl7R 


2560 


CZC 


§>004C,b 


QUIT key? 


0H7C 


004C 






0fl7E 


1602 


JNE 


>0R64 




0R60 


0420 


BLWP 


@>0000 


Software reset 


0R82 


0000 








0R84 


D82F 


MOVB 


e)FC00(15) ,@>837B VDP status in copy RRM 


0R86 


FC00 








0R8a 


837B 








0flBfl 


\dZLQ 


LWPI 


)83C0 


INTW5 


0R8C 


83C0 








0R8E 


05CB 


INCT 


11 


Screen timeout counter 


0RS0 


160B 


JNE 


)0RR8 


Not 


Interrupt Level 2: 




0R92 


O30R 


MOVB 


10, 12 


VDP register 1 


0094 


038C 


SRL 


12,8 


0R36 


026C 


OR I 


12, >8160 


Basis value 


0R38 


8160 








0n9fl 


024C 


AND I 


12, > FFBF 


Turn off screen 


0R3C 


FFBF 








0H3E 


□820 


MOVB 


§>83D9,e>8C02 Load VDP register 


0RR0 


83D9 








0flR2 


8C02 








0RR4 


D80C 


MOVB 


12,@>8C02 




0RR6 


8C02 








0RR8 


02E0 


LWPI 


>83E0 


GPLW5 


0RRR 


83E0 








0RRC 


B80E 


RB 


14,§>8373 


VDP interrupt timer (system fl 


0RRE 


83/3 






0RB0 


C320 


MOV 


§>83C4,12 


User defined interrupt 


0RB2 


83C4 






0RB4 


1301 


JEQ 


>0RB8 


None, then jump 


0RB6 


069C 


BL 




Otherwise execute 


0RB& 


04C8 


CLR 


8 


Clear 6R0M search pointer 


0RBR 


02E0 


LWPI 


>83C0 


INTW5 


0HBC 


83C0 








0RBE 


0380 


RTWP 




find end interrupt 
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XML 13 6R0M DSRLNK, simitar to assembler, >a36D data, but correct pointers 
are missing >8356 (Left pointing D5R name), return to GPL occurs. 



mc0 


04C1 


CLR 


1 




0RC2 


C320 


MOV 


e> 8300,12 


Fetch 6R0M search routine (CRU!) 




83D0 








0nc6 


1618 


JNE 


>0RF8 




0RC8 


020C 


LI 


12, >0F00 


Scan CRU 


0RCR 


0F00 








0fiCC 


C30C 


MOV 


12,12 




0RCE 


1301 


JEQ 


>0RD2 




0RD0 


1E00 


5BZ 


>0000 




0RD2 


022C 


fli 


12, >0100 




0nD4 


0100 








0RD6 


04E0 


CLR 


§>83D0 




0RDa 


83D0 








0RDR 


028C 


CI 


12, >2000 




0flDC 


2000 








0RDE 


1320 


JEQ 


>0B20 




0RE0 


C80C 


MOV 


12,§>83D0 




0RE2 


83D0 








0RE4 


1D00 


SBO 


>0000 




0RE6 


0202 


LI 


2, >4000 


Does ROM exist? 


0RE8 


4000 








0RER 


9812 


CB 


)(2,§>000D 


>Rfl? 


0REC 


000D 








0flEE 


16EE 


JNE 


>0RCC 




0flF0 


B820 


RB 


§>836D,@>&3E5 Rdd data R2 Lbyte 


0RF2 


836D 








0RF4 


83E5 








0RF6 


1003 


JMP 


>0RFE 




0RF8 


C0R0 


MOV 


§>83D2,2 


Fetch ROM search pointer 


0RFfl 


83D2 








0RFC 


1D00 


SBO 


>0000 




0RFE 


C092 


MOV 


*2,2 


Check routine existing 


0B00 


13E5 


JEQ 


>0HCC 


0B02 


C802 


MOV 


2,e)83D2 


ROM pointer next routine 


0604 


83D2 






0B06 


0SC2 


INCT 


2 




0B08 


C272 


MOV 


i*2+,9 




0B0R 


06R0 


BL 


§>0BE8 


Check name 


0B0C 


0BE8 








0B0E 


10F4 


JMP 


>0flF8 


Not the right 


0B10 


0581 


INC 


1 


0B12 


0699 


BL 


^9 


Execute routine 


0B14 


10F1 


JMP 


>0RF8 




0B16 


1E00 


5BZ 


>0000 


Turn off D5R ROM 


0Bia 


1001 


JMP 


>0B1C 




0B1R 


04D8 


CLR 


*8 




UOIL 


Ciena 


oL 


e>0842 


POP 6R0M address from substack! corresponds 


0B1E 


0842 






0B20 


0460 


B 


@>006n 


Return GPL status reset 


0B22 


006R 








XML Ifl 65RLNK (Search D5R 


in GROM): 


F1B24 


0207 


LI 


7, >83D2 


HOM search pointer 


0B26 


83D2 






0B28 


0208 


LI 


8, >83D0 


GROM search pointer 


0B2n 


83D0 






0B2C 


06R0 


BL 


@>0864 


Push GROM address on substack 


0B2E 


0864 








0B30 


C057 


MOV 






0B32 


C098 


MOV 


if8.2 




0B34 


1604 


JNE 


>0B3E 


GROM search pointer <>0, then execution 


0B36 


0202 


LI 


2, >3a00 


GROM read data 


0B38 


9800 
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0B3n 


0201 


LI 


1,>E000 Highest GRQM 


0B3C 


E000 




0B3E 


2460 


CZC 


e>012a,1 8eginning 


0B40 


0128 




0B42 


160E 


JNE 


>0660 


0B44 


CB02 




2,^t8 GROM search pointer 


0B46 


D881 


M0V6 


1,§>0402(2} Write GROM address 


0B48 


0402 






0B4n 


D8R0 


MOVB 


e>83E3,§>0402(2) 


0B4C 


83E3 




0B4E 


0402 






0B50 


B820 


RB 


§>836D,e)83E3 Data + R1 L6 


0B52 


8380 




0B54 


83E3 






0B56 


0801 


MOVB 


1,§>83CB Save R1 Mbyte 


0B58 


83CB 




0B5n 


9812 


C6 


»2.e>000O GROM header? 


065C 


000D 






0B5E 


1632 


JNE 


>06C4 


.0B60 


0881 


M0V8 


1,§>0402(2) Write GROM LINK address 


0B62 


0402 






0B64 


D8R0 


M0V8 


@>83E3,§>0402(2) 


0666 


83E3 






0B68 


0402 






0B6n 


0R4R 


5Lfl 


10,4 Time loss 


0B6C 


0002 


M0V6 


*2,3 Fetch LINK table address 


0B6E 


1000 


JMP 


>0670 


0B70 


0812 


MDVB 


Jf2,§>83E7 


0B72 


83E7 




0B74 


C5C3 


MOV 


3,*7 R3 on ROM search pointer (next LINK address) 


0B7B 


1326 


JEQ 


>0BC4 0? 


0B78 


05C3 


INCT 


3 


0B7R 


0883 


MOVB 


3,e>0402(2) Write start address 


0B7C 


0402 






0B7E 


D8R0 


MQV6 


§>83E7,e>0402(2) 


0B80 


83E7 






0B82 


0402 






0B84 


1000 


JMP 


>0686 


0B86 


0252 


MOVE 


*2,9 Start address in R9 


0B88 


0R4R 


SLR 


10,4 


0B8n 


0812 


MOVB 


it2,§>83F3 


0B8C 


83F3 






0B8E 


06R0 


6L 


@>0BE8 Check name 


0B90 


0BE8 






0B92 


10CE 


JMP 


>0630 


0Ba4 


6820 


RB 


@>0030,e>8372 Oata stack pointer +2 


0B36 


0030 




0BSa 


8372 






0B3R 


680E 


RB 


14,§)836C Count 


0B3C 


836C 






0B3E 


0120 


MOVB 


§>8372,4 Fetch data stack pointer 


0Bn0 


8372 




0Bn2 


0984 


SRL 


4,8 


0BR4 


0643 


OECT 


3 


0Bn6 


9820 


C6 


@>836O,§>0C04 Does program LINK? 


0BR8 


8360 




0BRn 


0C04 






0BRC 


1601 


JNE 


>0BB0 


0BRE 


C243 


MOV 


3,9 Addresses of the programs on stack 


0BB0 


0909 


M0V6 


9,@>8300(4) 


0BB2 


8300 




0BB4 


0920 


MQV6 


e>83F3,e>8301(4) 


0BB6 


83F3 






0BB8 


8301 






0BBR 


C342 


MOV 


2.13 Set 6RGM pointer 


0BBC 


06R0 


6L 


e>0842 POP GROM address from subs tack. Corresbonds RTN 
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0BBE 


0842 








0BC0 


0460 


B 


§>00CE 


Set GPL interpreter condition bit 


0BC2 


00CE 








0BC4 


04C1 


CLR 






0BCG 


D060 


MOVB 


a > Agra 1 


FptrK (iRflM PII tfnhp r 


0BC8 


83CB 












PII 


1 > E000 


> 10 


0BCC 


E000 








0BCE 


CSC1 


MOV 


1 ,*7 


New GROM on GROM search pointer 




K/^O 1 


QI 


1 , > E000 


End ? 












0BD4 


16B4 


JNE 


>0B3E 




0BD6 


8CB2 


Q 


*2+ , ■K2+ 


R2 +4 Oh ! , Works for differentiated GRMRD of 


0BD6 


C602 


MOV 


2,*^8 


) 0^ p»ac"h H 1 f f #5 r pnr'O 1 Hiit nnfr ^iinnnrtpd i^yj 


06Dn 


0282 


CI 


2 , > 9840 


16time5 consoLe. 


0BDC 


9840 








0BDE 


139D 


JEQ 


>0B1P 


End 


0BE0 


D1B0 


MOVB 




Length 0? 


0BE2 


8355 








0BE4 


i6nn 


JNE 


>0B3R 


No 






JMP 


>0B1C 




Check 




( name on PRC, 


Length on >8355) 


0BE8 


D160 


MOVB 


6)8355,5 


Length 0? 


0BEn 


8355 






0BEC 


130D 


JEQ 


>0C08 




0BEE 


9485 


CB 




Length right ? 






JNE 


>0C0R 








5RL 


5,8 




0BF4 


0206 


LI 


6, >834fl 


PRC 


0BF6 


834n 










0282 


CI 


Z. >9800 


In GRDM? 


0BFP 


9800 








0BFC 


1401 


JHE 


>0C00 




0BFE 


0582 


INC 


2 


No R2+1 


BC00 


94B6 


CB 


Jt6+ ,*2 


Compa r e 


0C02 


1603 


JNE 


■>0C0fl 


Don ' t fit, end 


3C04 


0605 


DEC 


5 


Length complete ? 


0C06 


16F8 


JNE 


>0BF8 


No, go on 


0C06 


05CB 


INCT 


11 


Yes, right name, return +2 


0C0n 


045B 


B 






GPL extension for future 


(>14->1E >9a-)9F >EE->EP >FC-)FF)- 


0C0C 


06R0 


BL 


@)0C28 


Ti 1 r*n c\r\ r F?l 1 


0C0E 


0C28 








0C10 


0460 


B 


§>4020 


Jump to entry address 


0C12 


4020 








13PL extension for future 


( > IP) : 


0C14 


06R0 


BL 


@>0C28 


1 LI 1 11 Oil IxLJ 


0C16 


0C28 








0C18 


0460 


B 


e>401C 


Execute 


0C1O 


401 C 








Not used up 


to now in operating system: 


0C1C 


02E0 


LWPI 


>2800 




0C1E 


2800 








0C20 


06n0 


BL 


§>0C28 


Turn on CRU 


0C22 


0C2a 








0C24 


0460 


B 


e>4028 


Execute 


0C2B 


4028 








0C2a 


020C 


LI 


12, >1B00 


Load CRU 


0C2R 


1B00 








0C2C 


1000 


SBO 


)0000 


Turn on 
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0C2E 045B B 



Retur 



0C30 0000 
0C32 0000 
0C34 0000 



GPL jump table 1st byte HNybble 
0C3B 0270 Various (>00->1F) 
0C3fl 061E MOVE (>20->3F) 
0C3n 01 10 BR (>40->5F) 
0C3C 01 0E BS (>B0->7F) 



GPL 


jump table Code >00' 


0C3E 


0638 


RTN ()001 


0C40 


083E 




0C42 


027fi 


RRND (>02) 


0C44 


02flE 


5CRN ( > 03 ) 


0C46 


029E 


BHCK (>04) 


0C48 


0104 


B (>05} 


0C4P 


085R 


CALL (>06) 


0C4C 


05fl2 


ALL (>07) 


0C4E 


04DE 


FMT ( >08) 


0C50 


00F4 


H (>09) 


0C52 


00F4 


GT C > 0H ] 

u I \ f wri J 


0C54 


0024 


EXIT ( >0B1 


0C56 


00F4 


CORRY C>0C3 


0C58 


00F4 


□UP f >0ni 


0C5R 


18C8 


PHR5E ()0E) 


0C5C 


0606 


XML (>0F) 


0C5E 


1920 


CONT O10) 


0C60 


1368 


EXEC (>11) 


0C62 


19F0 


RTNB (>12) 


0C64 


082C 


RTGR 013) 


0C66 


0C0C 


For extension 


0C68 


0C0C 


II 


0C6R 


0C0C 




0C6C 


0C0C 


ti 


0C6E 


0C0C 




0C70 


0C0C 


n 


0C72 


0C0C 




0C74 


0C0C 


II 


0C76 


0C0C 


II 


0C78 


0C0C 


II 


0C7R 


0C0C 


II 


0C7C 


0C14 


" ()1F) 


GPL jump table Code >80- 


0C7E 


0136 


RB5 (>80} 


0C80 


01 3R 


NE6 (>82) 


0C82 


0140 


INV ()84) 


0C84 


013E 


CLR (>86) 


0C86 


0144 


FETCH 088) 


0C86 


0162 


CR5E 08R) 


0C8R 


016E 


PUSH 08C) 


0C8C 


00ER 


CZ (>8E) 


0C8E 


0186 


INC (>30) 


0CS0 


0188 


DEC (>92) 


0C92 


0184 


INCT (>94) 


0C94 


0182 


DECT C>36) 


0CS6 


0C0C 


For extension 


0C98 


0C0C 


II 


0CSR 


0C0C 


II 


0C9C 


0C0C 


II 



GPL jump table Code >R0->FF 
0C9E 0188 RDD (>n0) 



0Cfl0 


0186 


SUB ( > R4 ) 


0CP2 


01 CE 


Mill ( > DB ) 


0CR4 


01 ER 


niu (>pri 


0CR6 


0190 


RND ( > B0 } 


BCflS 


0196 


□R ( > B4 ) 




01 9R 


XOR f)Bfl3 




019E 


ST (>BC) 


BCflE 


01fl2 


EX (>C0) 








0CBZ 


00DR 


CHE C>Cfli 


0CB4 


00DE 


TGT ( >CC1 






rfiF ( vHWl 

L.IJ^ \ / Lllu J 


0CB8 


00EC 




0CBn 


00E2 




0C6C 


0160 


SRR ( > DC ) 


0CBE 


01 B4 


5LL ( >E0) 


0CC0 


01 B8 


5RL C > E4 ) 


0CC2 


01C2 


SRC ( ) Efl ) 

^r\w V / i-ij J 


0CC4 


06D2 


CniHC C >ED . IncomDleteLv decroded) 


0CC6 


0C0C 


Pnr ^vtf^ncinn fiFR^ 


0CC& 


05C8 


T/fl fiPR T pif"fMnn 1 pfol \j dpcodpdl 1 


0CCR 


004E 


5W6R (>F8) 


0CCC 


0C0C 


For extension (>FC) 



Jump table for addresses at MOVE: 

0CCE 0660 Source in ROM or RRM 

0CD0 0672 Source in BROM or GRAM 

0CD2 0664 Source in VOP RRM 

0CD4 0682 Destination in ROM or RRM 

0CD6 0686 Destination in GROM 

0CDa 06BR Destination in VDP RRM 

0CDfl 0698 Destination is VDP register 



FMT format jump table 

0CDC 050R 0,1 Horizontal string projection 

0CDE 0508 2,3 Vertical string projection 

0CE0 0504 4,5 Repeat horizontal character 

0CE2 0502 6,7 Repeat vertical character 

0CE4 0534 8.9 Relative fixed row 

0CE6 0532 R,B Relative fixed column 

0CE8 053R CD Loop values 

0CER 056C E,F Fixed position row and column, screen offset 



I/O jump table 

0CEC 05D6 Sound Gram 00 

0CEE 05D6 Sound VDP 01 

0CF0 05E8 CRU Input 02 

0CF2 05ER CRU Output 03 

0CF4 1346 Cassette Write 04 

0CF6 142E Cassette Read 05 

0CF8 1426 Cassette verify0B 



XMLLNK table 1st Nybble 

0CFR 0D1R Floating point routines (>0X} 

0CFC 12R0 "XTRB" (>1X) 

0CFE 2000 Low memory expansion (>2X} 

0D00 3FC0 Basic enhancement (>3X) 

0D02 3FE0 Basic enhancement ()4X) 

0D04 4010 Probably for GPL extension (>5X) 

0D06 4030 Probably for GPL extension (>6X) 

0D08 6010 ROM modul ( >7X} 

0D0R 6030 ROM modul ( >8X) 

0O0C 7000 ROM modul ( >9X) 

0O0E 8000 Future expansion (>RX) 

0D10 R000 (>BX) 

0D12 B000 (>CX} 



RLso usable in DSR 
Rlso usable in DSR 
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0D14 cam (}DX) 
0D16 mm (>EX} 

0D18 8300 Scratch PRD RRM (>FX) 



FLTRB 

0D1R 

0D1C 

0D1E 

0D20 

0D22 

0D24 
0D26 
0D28 
0D2R 
0D2C 
0D2E 
0D30 
0D32 
0D34 
0D36 
0D38 



0F54 
0FB2 
0Ffl4 
0FC2 

0FCC 
0D80 
0D7C 
0E88 
0FF4 
0O3R 
0D84 
0D74 
0E8C 
0FF8 
0D46 



9 bytes Long ( >01 ) 
Length e>8354 (>02) 



(XMLLNK 2nd NybbLe >0X) 

Rounding of floating point numbers 
Rounding of floating point numbers 
Status EQU if FflC (word) =0 (>03) 

Overflow (>8376 Byte negative toward positive toward 
inf inite( >04) 

Set overflow number ( >a375 negative or positive (>05) 
FRDD (>06) 
F5UB (>07) 
FMUL (>08) 
FDIV (>09) 
FCOMP ()0H) 



SRDD 

SSUB 

5MULT 

5DIV 

SCOMP 



(>0B) 
(>0C) 
(>0D) 
(>0E} 
(>0F) 



FCOMp (XML >0R): 

0D3R C28B MOV 11,10 

0D3C 0203 LI 3,>0FRR End load 

0D3E 0FRfl 

0040 1007 JMP >0DS0 Execute 



Set SCOMP with direct return without GPL status: 
0042 C0CB MOV 11,3 
0044 1003 JMP >0O4C 



SCOMP 


(XML 


>0F): 






0046 


0203 


LI 


3, >0FRR 




0046 


0FHR 








0O4R 


C28B 


MOV 


11 ,10 




0D4C 


06R0 


BL 


§>1Ffl8 


Fetch number from stack of VOP 


0D4E 


1FR8 








0050 


0207 


LI 


7, >835C 


RRG 


0052 


835C 








0054 


0205 


LI 


5, >834R 


FRC 


0056 


834R 






0058 


8057 


C 




Compare 1st word 


0O5R 


160B 


JNE 


>0O72 


0D5C 


C1B7 


MOV 


**7+,6 




0D5E 


1309 


JEQ 


>0D72 


0? 


0060 


1503 


JGT 


>0D68 


>0? 


0062 


CI 85 


MOV 


5,6 


Exchange if smaller 


0064 


C147 


MOV 


7,5 


(Invert logic) 


0066 


C1C6 


MOV 


6,7 


0068 


8D77 


C 


*7+ ,if5+ 


2nd word 


0O6R 


1603 


JNE 


>0D72 




0O6C 


8077 


C 


^^7+ ,^tS+ 


3rd word 


0O6E 


1601 


JNE 


>0D72 




0070 


8557 


C 


, ^5 


4th word 


0072 


0453 


B 


*3 


Return or set GPL status byte 


SSUB 


(XML : 


>0C) : 






0074 


C28B 


MOV 


11,10 




0076 


06R0 


BL 


@>1FR8 


Pop number from VDP stack 


0078 


1FH8 






0D7R 


C2Cfl 


MOV 


10,11 




FSUB 


(XML 1 


[>07): 






0O7C 


0520 


NEG 


@>834R 


Make subtraction from addition 
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0D7E a34R 



FflDD 


(XML : 


>06) : 






0D80 


C28B 


MOV 


11 , 10 




0D&2 


1k503 


JMP 


>0D8P 




SflDD 


(XML : 


>0B} : 






aUBA 


C28B 


MOV 


11 ,10 




0DB6 


06R0 


BL 


§>1FR8 


Pop number from VDP stack 


0D68 


IFflS 








0D6n 


C1E0 


MOV 


e>835C,7 


RRG in R7 


0Dac 


835C 








0D6E 


130R 


JEQ 


>0DR4 


0? 


0D30 


C220 


MOV 


@>834R,8 


FRC in R8 


0D92 


834R 








0D34 


1603 


JNE 


>0OR6 


( >0? 


0096 


0201 


LI 


1 , >FFF8 




0D38 


FFF8 








0D9n 


C861 


MOV 


e>8364(1),( 


»>8352(1) RRG in FRC 


0D3C 


8384 








0D3E 


8352 








0Dn0 


05C1 


I NET 


1 


RLl 6 bytes? 


0OP2 


11FB 


JLT 


>0O3n 


00^4 


0460 


B 


e>0Ffl6 


Set status (EQU if 0) 


0DP6 


0FR6 








0Dn8 


23C8 


XOR 


8,7 


Sign 


0Dnn 


0760 


RBS 


§>834R 


Posi tive 


0Dnc 


834R 








0DnE 


0760 


RBS 


§>835C 


Posi tive 


0DB0 


835C 








0DB2 


0203 


LI 


3, >FFF8 


8 bytes 


0DB4 


FFF8 








0DB6 


88E3 


C 


§>8352(3),§>8364(3) Compare 


0DB8 


8352 








0DBP 


8384 








0DBC 


1S0E 


JGT 


>0OOR 


Rtl o.k. 


0OBE 


1103 


JLT 


>0DC6 


Smaller, exchange 


0DC0 


05C3 


I NET 


3 




0DC2 


16F9 


JNE 


>0OB6 


Number end? 


0DC4 


100R 


JMP 


>0OOR 




0DC6 


C023 


MOV 


e>8364(3),0 Bigger number in FRC 


0DC6 


8384 








0DCn 


C8E3 


MOV 


e>6352(3).§>8364(3) 


0DCC 


8352 








0DCE 


8364 








0000 


cac0 


MOV 


0,§>8352(3) 


0002 


8352 








0004 


05C3 


INCT 


3 




0006 


16F7 


JNE 


>0OC6 


Number end? 


0006 


2fl07 


XOR 


7,8 


Sign in R8 


0ODn 


04C5 


CLR 


5 


0OOC 


04E0 


CLR 


e>6352 


Clear 


0DDE 


8352 








0OE0 


04E0 


CLR 


§>8364 


The same 


0DE2 


8364 








0OE4 


0608 


MOVB 


8,§>8375 


Save sign (in RSCII key) 


0DE6 


8375 






0DE8 


04C6 


CLR 


6 




0OEn 


0820 


MOVB 


§>834R,§>83ED Exponent in R6 Lbyte 


0DEC 


a34P 








0DEE 


83E0 








0OF0 


C606 


MOV 


6,§>8376 


Save R6 


0DF2 


8376 








0DF4 


0805 


MOVB 


5,e>834fl 




0OF6 


834fl 
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0DF8 


7820 


SB 


§>835C,e>a3ED Difference exponent 


0DFn 


a35C 








0DFC 


aSED 








0DFE 


0286 


CI 


6, > 0007 


Digit number 


0E00 


0007 






0E02 


1540 


JGT 


>0E84 


Bigger, then end 


0E04 


C006 


MOV 


6,0 


0E06 


0208 


LI 


8, >0100 




0E0a 


0100 








0E0P 


0209 


LI 


9, >6400 


100 decimal 


0E0C 


6400 








0E0E 


0205 


LI 


5, > 8353 


FRC +9 


0E10 


8353 








0E12 


0206 


LI 


6, > 8365 


RRG +9 


0E14 


8365 








0E16 


6180 


5 • 


0,6 


Digit difference 


0E18 


CI 00 


MOV 


0,4 


0Ein 


0224 


RI 


4. >FFF7 


Difference loop counter 


0E1C 


FFF7 






0E1E 


C047 


MOV 


7,1 


Negative? 


0E20 


1120 


JLT 


>0E62 


0E22 


B556 


RB 


if6,*5 


Rdd 


0E24 


5255 


CB 


*5,9 


Overf low? 


0E26 


1R03 


JL 


>0E2E 




0E28 


7549 


SB 


9, its 


-100 


0E2R 


11948 


RB 


8,§>FFFF(5: 


1 +1 on digit higher 


QLZC 


FFFF 


. 




0E2E 


0605 


DEC 


Fi 




0E30 


0608 


DEC 


6 




0E32 


0584 


INC 


4 


Loop till end 


0E34 


11F6 


JLT 


)0E22 


0E36 


1002 


JMP 


>0E3C 




0E36 


0605 


DEC 


5 




0E3n 


B548 


RB 


a,*5 




0E3C 


7549 


SB 


9,*5 


Overflow 1st digit 


0E3E 


15FC 


JGT 


>0E38 


0E40 


13FB 


JEQ 


>0E38 




0E42 


B549 


RB 


9,*5 


Repair old value 


0E44 


D060 


MOVB 


§>834R,1 


0E46 


834R 








0E48 


130B 


JEQ 


>0E60 




0E4P 


05R0 


INC 


§)8376 


Increse exponent 


0E4C 


8376 






0E4E 


0201 


LI 


1, > 6352 


All 1 byte up 


0E50 


8352 






0E52 


0202 


LI 


2, >0009 




0E54 


0009 








0E56 


D851 


MOVB 


*1,§>0001(1) 


0E58 


0001 








0E5n 


0601 


DEC 


1 




0E5C 


0602 


DEC 


2 




0E5E 


16FB 


JNE 


>0E56 


Loop 6 bytes 


0E60 


107fl 


JMP 


>0F56 


0E62 


7556 


SB 




Minus 


0E64 


1504 


JGT 


>0E6E 


Overf low? 


0E66 


1303 


JEQ 


>0E6E 




0E68 


B549 


RB 


9,Jt5 


Execute overflow 


0E6R 


7948 


SB 


8,§>FFFF(5) 


0E6C 


FFFF 








0E6E 


0605 


DEC 


5 




0E70 


0606 


DEC 


6 




0E72 


0584 


INC 


4 




0E74 


11F6 


JLT 


>0E62 


Loop 


0E76 


1003 


JMP 


>0E7E 


0E78 


B549 


RB 


9, its 




0E7R 


0605 


DEC 


5 
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Mt/L 


/b4o 


CD 

bo 


o ^c 




0E7E 


D115 


MOVE 


*5 , 4 


Lheck overflow last byte 




1 1 CD 

1 IriJ 


II T 

JL 1 


V (7C'7a 

>loc/a 


BE82 


104C 


JMP 


>0F1C 


Check subtraction <>0 


0E64 


0460 


B 


e>0F86 


Set exponent and end 


0tob 


0F86 








FMUL 


(XML >08): 






0E86 


C28B 


MOV 


11,10 






1003 


JMP 


>UCb<l 




CMI 11 


(XML >0D): 








C28B 


MOV 


11 in 






06n0 


BL 


A V icno 


retch HKu t rotn VUr stack 


BE30 


1FR8 










0203 


LI 


d / >ad4l-l 


cnr" 


0E94 


834R 








0ES6 


0205 


LI 


5 , > 835C 


hRu 




835C 








etc an 




MOV 


*d , o 


cnr no 
rHL Mr 




1346 


JEQ 


filer on 


bet 




on-i c 

2H15 


vno 
XUR 


^C Q 

»b , o 


Sign in R8 




0755 


nQc 
Hob 


*b 


HKu to small 




1343 


JEQ 


>0r2H 


bet 


0En4 


0753 


nB5 


*3 




cicnc 


04C9 


CLR 


Q 
b 




men a 


D253 


MOVE 


*d,3 








no 


*b , 3 


New exponent 




06CS 


SWPB 


Q 

b 






0229 


PI 


3, >rrLl 


Correction 




FFC1 










C609 


MOV 


b , e>od/D 


Save 




8376 








acne 


D808 


MOVB 


O As fl'a"7C 

o,e>od/b 


Save sign 


OtCDfl 

utoo 


8375 






0EBP 


0205 


LI 


5 , > 8352 


Clear >od52->o35H 


ubUL 


8352 










04F5 


CLR 


*b* 




0EC0 


0285 


CI 


5, >835P 






835P 








nict~ A 


16FC 


JNE 


V mcDC 




ncr'c 
IdtLo 


0205 


LI 


b , > odbti 






8352 








i7Cf~n 


0605 


DEC 


b 


c»i.mU cnr 
retch rHL 


t7ct~r' 
UCLX- 


□015 


MOVB 


U.C Ol 


no 
a i 


lotiLb 


13FD 


JEQ 


>}OtX.H 


Go on 




0207 


LI 


/ , > UI^UO 


c^i^kk noc 

retch HNb 




0008 










0607 


DEC 


7 




0ED6 


D027 


MOVB 


§>835C(7),0 07 


0ED6 


SJbL 








\Ot.UH 


13FC 


JEQ 


>0ED4 


Go on 




04C0 


CLR 







ucUc 


3880 


MPY 


0,2 


Trick clear R2 and R3 




C185 


MOV 


5,6 


R5 actual value PRC absolute 


0EE2 


0208 


LI 


8, >a3E1 


LByte R0 


0EE4 


83E1 






idttb 


0209 


LI 


3, >0064 


Decimal 100 


kScca 


0064 








0EEP 


C107 


MOV 


7,4 


R7 actual value RRG relative 


0EEC 


R187 


P 


7.6 




0EEE 


D815 


MOVB 


*5,e>83E7 Lbyte R3 


0EF0 


83E7 










D543 


MOVB 


3,*5 


Toward 


0EF4 


D624 


MOVB 


e>835C(4),*8 Lbyte R0 


0EF6 


835C 
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BEFa 
BEFfl 
0EFC 
0EFE 
0F00 
0F02 
0F04 
0F06 
0F08 
0F0P 
0F0C 
0F0E 
0F10 
0F12 
0F14 
0F16 
0F18 
0F1P 
0F1C 
0F1E 
0F20 
0F22 
0F24 
0F26 
0F28 
0F2R 
0F2C 
0F2E 
0F30 
0F32 
0F34 
0F3B 
0F38 
0F3R 
0F3C 
0F3E 
0F40 
0F42 
0F44 
0F46 
0F48 
0F4P 
0F4C 
0F4E 
0F50 
0F52 



3803 
DSIB 
83E5 
R042 
3C09 
D5n0 
a3E3 
0606 
8598 
0604 
15F3 
0606 
0605 
0285 
834R 
15E9 
04E0 
8354 
0201 
FFF7 
D0ni 
8354 
1607 
0581 
11FB 
04E0 
834R 
04E0 
834C 
1033 
C001 
0220 
0009 
130D 
6800 
8376 
0202 
834B 
DCR1 
8354 
0581 
11FC 
DC81 
0800 
15FD 
1001 



MPY 
MOVB 

R 

DIV 
MOVB 

DEC 

RB 

DEC 

J6T 

DEC 

DEC 

CI 

JST 
CLR 

LI 



3.0 Multiplying of values 
*6,§>83E5 Lbyte R2 

2.1 Add digit 

9,0 Divided by 100 

e>83E3,*f6 Write Lbyte R1 to digit 



6 

*8,*6 
4 

>0EF4 

6 

5 

5, >a34fl 

>0EER 
§>8354 



Integer of division to new digit 
Loop for FRC 

Loop for RR6 
No error 



1,>FFF7 
MOVB §)8354(1),2 Result <>0 



JNE 
INC 
JLT 
CLR 



>0F34 
1 

>0F20 
e>834R 



CLR §>a34C 



JMP 

RI 

JEQ 
5 

LI 



>0FR6 
1,0 

0, >0009 



Loop 
Clear 



First digit 
RRG+1 



>0F56 Yes, end with rounding 
0,@>8376 Substract exponent 



2,>834B Shift to FRC 
MOVB §>8354(1),*2+ 



INC 

JLT 

MOVB 

DEC 

J5T 

JMP 



1 

>0F44 
1 ,*2+ 


>0F4C 

)0F56 End with rounding 



Loop 

Rdditional bytes 



XML >01 Rounding 

0F54 C28B MOV 

0F56 0200 LI 

0FS8 3200 

0F5R 8020 C 

0F5C 8352 

0F5E 1113 JLT 

0F60 0201 LI 

0F62 0007 

0F64 0202 LI 

0F66 0100 

0F68 0200 LI 

0F6R 6400 

0F6C B842 RB 

0F6E 834R 

0F70 3021 CB 

0F72 834R 

0F74 1R08 JL 

0F76 7840 SB 



of floating point numbers 
11,10 

0, >3200 Decimal 50 
@> 8352,0 Compare 

>0F86 Smaller, end 

1, > 0007 

2, >0100 

0,>6400 Decimal 100 
2,e>a34R(1) +1 

e>a34Rci),0 

>0F6B Smaller 100, then end 

0,§>834R(1) Minus 100 
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lor /o 


OJ'HH 








lor / H 


IlIOcI I 


npr 


1 




HF7C 


ip;f7 


«Jij 1 


v piper 


. , ..... 
Nex t d 1 9 1 1 


C1F7F 




TKir 




Increase exponent 


OIPACI 

Kiroici 


A'37C 
03/0 








Vtroc 


nflCI'5 


MDI JD 

nUvo 


c. , S>oJ4d 


1 on first digit 


lor 0*1 








UroD 


nciPDi 


Mm J 


e>oJ/D , J 


Fetch exponent 


(7IPAA 


OJ/D 






DIP AO 








1 □ big . 












IH IH 


IMP 


>0FC4 


□verf low 




HA*? 01 


Mniin 
nuvD 


§)83E7,§>834R Set exponent 




A^P? 




















nOIQDI 


Mnitn 


@>a375,2 






A'^7P 
OJ/3 














2 








II T 


>0FO2 


Negative? No, end 








e>834fl 


Negate number 


0FR0 


8340 






0FR2 


1001 


JMP 


>0FR6 





XML >03 CPU status becomes GPL status in depending of- FRC(word) 

0FH4 C28B MOU 11,10 

0FHB C0S0 MDV §>834R,1 Fetch FRC 

0Ffia a34fl 



Store status 

0FRR 02C2 STST 2 

0FRC 0802 MOVE 2,@>837C 

0FRE 837C 

0FB0 045R B *10 



CPU status becomes GPL status 
Return 



XML >02 Rounding with digit number in >8354 

0FB2 C2aB MOV 11,10 

0FB4 D060 MOVE §> 8354,1 Digit number in R1 

0FBB 8354 

0FBa 0981 SRL 1,8 Lbyte 

0FBR 10D4 JMP >0F64 Execute 

0FBC 0209 LI 9,>0200 Overflow Infinite with error code 02 

0FBE 0200 

0FC0 1008 JMP >0FD2 Execution 



XML >04 Overflow 

0FC2 C28B MOV 11,10 

0FC4 D0fl0 MOVB §)8376,2 Fetch sign 

0FC6 8376 

0FC8 11B0 JLT >0F2R Execute toward 
0FCfl 1001 JMP >0FCE Toward infinite 



XML >05 Set overflow on Fl 

0FCC C28B MOV 11,10 

0FCE 0209 LI 9, > 01 00 

0FD0 0100 

0FD2 0200 LI 0,>809D 

0FD4 8090 

0FDB D0R0 MOVB e>8375,2 

0FD8 8375 

0FDH 1101 JLT >0FDE 

0FDC 0500 NEG 

0FDE 0202 LI 2,>834R 

0FE0 834R 

0FE2 CC80 MOV 0,*2+ 

0FE4 0200 LI 0,>6363 



Error code 01 

Fetch sign 

Positive? 

FRC 

Load exponent and 1 digit 
Decimal 99 
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0FE6 


6363 










rrACi 


Ntnu 
nuv 




III • i, J- -t 
writs digits 


lorcri 




Mnu 
nuv 








MRU 






BFEE 


D603 


MOVE 


9,§>8354 


Error code on >8354 


0FF0 


8354 








0FF2 


10D3 


JMP 


>0FR8 


End set 6PL-5tatus 


FDIV 


(XML >09): 






0FF4 


C28B 


MOU 


11,10 




0FF6 


1003 


JMP 


vGiFFF 
/ tt/r ri- 




t V 


(XML >0E): 








C28B 


MOV 


ll 1PI 




Kir 1 M 


06n0 


BL 


0)1 FOA 


ntsLcri numocr r rarn wut 


0FFC 


1FR8 








0FFE 


0203 


LI 


3 >834a 


FRC 


1000 


834n 








1002 


C213 


MOV 


it3,8 




1004 


0200 


LI 


>a35C 


RRG 


1006 


835C 








1008 


2010 


XOR 


^,8 




100n 


D808 


MOVE 


8,e>8375 


Save sign of division 


100C 


A^7^ 






100E 


iLl/ vJ«J 




^3 


rhnrif nn ^RRfm FQP 


1010 




iFn 


>0FBC 




1012 








Check an )0000 RRG 


1014 


nAQ 


IFn 


>0F2R 


End with 0000 


101B 


D250 


MOVB 






1016 


7253 






lilsW cXpUl IcI 1 L 


101P 


0889 


5Rn 


9,6 


101C 


0229 


PI 


Q ) 0040 


I nt* r^r f i on 


101E 


0040 








1020 




MOV 


9.©>8376 


Save on >fl37B 


1022 


A^7R 








1024 




1 T 

l_l 


4, >0004 


Save FRC on >6354* 


1026 


OlOiOlA 












1 T 


5,) 8364 


Clear at )63B4 through 


102P 


A'^R^ 




102C 


rflFT 


MRU 


*3+,§>0006(3) Execute 


102E 


KJiuluD 








1030 




ri R 
i_i_r\ 


*5+ 




1032 


OIKOIA 


UCL. 


4 




1034 


icFn 
isro 




>102C 


Loop 


1036 




Mm in 


4,§>835e 


1038 


odbL 








103n 




Li 


5,>63E1 


R0 Lbyte 














1 7 

Li 


6, >83E3 


RI Lbyte 


1040 


odcJ 






1042 


0207 


LI 


7, >00B4 




1044 


0064 








1046 


04C2 


CLR 


2 




1 luMO 


D820 


MOVB 


§>8355,§>63E5 


i04n 


8355 










83E5 








m^F 


0282 


CI 


2, > 0031 


Decimal 49 


1050 


0031 








1052 


1S1E 


J6T 


>1090 






0582 


INC 


2 




1056 


04C3 


CLR 


3 




1058 


C107 


MOV 


7,4 




105fl 


3CC2 


DIV 


2,3 


Divided by 100 


105C 


0203 


LI 


9, >835C 


105E 


835C 








1060 


0204 


LI 


4, >0008 
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1062 
1084 
1066 
1068 
106n 
106C 
108E 
1070 
1072 
1074 
1076 
1078 
107P 
107C 
107E 
1060 
1082 
1084 
1086 
1088 
106P 
106C 
108E 
1090 
1062 
1094 
1096 
1098 
109P 
109C 
109E 
10R0 
1002 
10fl4 
10R6 
10^8 
10Pn 
10RC 
10RE 
10B0 
10B2 
10B4 
10B6 
10B8 
10Bn 
10BC 
10BE 
10C0 
10C2 
10C4 
10C6 
10C8 
10Cn 
10CC 
10CE 
10D0 
10D2 
10D4 
10D6 
10D6 
10Dn 
10DC 
10DE 
10E0 
10E2 
10E4 



0008 
0604 
0609 
D019 
13FC 
04C0 
C080 
D559 
3803 
R042 
3C07 
D656 
0609 
0604 
15F7 
0289 
8354 
1603 
0209 
8364 
10ER 
D815 
835C 
0206 
0008 
0606 
D026 
8354 
13FC 
04C7 
D820 
8355 
83EF 
C207 
3R20 
1044 
D820 
8356 
83F1 
0248 
0205 
FFF7 
020B 
835C 
04C2 
081 B 
63E5 
38R0 
1044 
04C0 
D82B 
.0001 
83E1 
R0C0 
3C87 
3flE0 
1044 
D82B 
0002 
83E1 
ni00 
C002 
3808 
6802 
1044 
1302 



DEC 4 

DEC 9 

MOVB *t9,0 

JEQ >1064 0? 

CLR 

MOV 0,2 

MOVB iiS.itS 

MPY 3,0 

R 2,1 

DIV 7,0 

MOVB *6,it9 

DEC 9 

DEC 4 

J5T >106E 

CI 9,>8354 

JNE >108C 
LI 9,>8364 

JMP >1060 
MOVB ^t5,e>83SC 

LI 6, > 0008 

DEC 6 R6=last digit 

MOVB 6)8354(6) ,0 

JEQ >1094 
CLR 7 

MOVB §>8355,§>63EF 1st digit R7 Lbyte 



MOV 7,8 

MPY e>1044,8 *100 

MOVB 6)8355, §>83F1 2nd digit R8 Lbyte 



R 
LI 



8,9 

5,>FFF7 



Loop counter 



LI 11,>835C 
CLR 2 

MOVB Hl1,e>83E5 
MPY 6)1044,2 JH00 
CLR 

MOVB 6)0001 (11 ).e>83E1 



R 0,3 

DIV 7,2 Divide 

MPY 6)1044,3 Remainuep 1H00 

MOVB 6)0002(11)., e>63E1 



R 

MOV 
MPY 
C 



0,4 
2,0 
6,0 

2,6)1044 



JEQ )10ER 



^Remainder 



Prepare over 100 
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10E6 


8044 


5 


4,1 


10E8 


1003 


JMP 


>10F0 


IBEfl 


6044 


5 


4,1 


10EC 


0602 


DEC 


2 


12EE 


6049 


5 


9,1 


10F0 


15FD 


J5T 


>10EC 


10F2 


C082 


MOV 


2,2 


10F4 


1329 


JEQ 


>1148 


10FB 


04C3 


CLR 


3 


10F8 


CI 06 


MOV 


6,4 


10Ffl 


R2C6 


R 


6,11 Next section 


10FC 


C0C0 


MOV 


0,3 


10FE 


D824 


MOVE 


e>8354(4),§>83E1 


1100 


8354 




1102 


83E1 






1104 


3802 


MPY 


2,0 


110B 


R043 


R 


3.1 


1108 


3C20 


DIV 


e> 1044,0 


110R 


1044 




110C 


76E0 


SB 


§>83E3,^H1 


110E 


83E3 




1110 


1504 


J5T 


>111R 


1112 


1303 


JEQ 


>111fl 


1114 


B6E0 


RB 


§>1045,^t11 


1116 


1045 




1118 


0580 


INC 





lllfl 


060B 


DEC 


11 


111C 


0604 


DEC 


4 


111E 


15EE 


JGT 


>10FC 


1120 


76E0 


SB 


@>83E1 ,*H1 


1122 


83E1 




1124 


1511 


JGT 


>1148 


1126 


1310 


JEQ 


>1148 


1128 


0802 


DEC 


2 


112P 


CI 06 


MOV 


6,4 


112C 


R2C6 


R 


8,11 


112E 


B6E4 


RB 


§>8354(4) ,^11 Rdd RRG 


1130 


8354 






1132 


981 B 


CB 


*11,§>1045 More than 100? 


1134 


1045 






1136 


1R05 


JL 


>1142 O.k. 


1138 


7BE0 


SB 


@>1045,*11 Minus 100 


1130 


1045 




113C 


BRE0 


RB 


©>0E59,@>FFFF(11) +1 one digit higher 


113E 


0E59 




1140 


FFFF 






1142 


060B 


DEC 


11 


1144 


0604 


DEC 


4 


1146 


15F3 


JGT 


>112E 


1148 


□380 


MOVE 


e>83E5,@>8354(5) 


114R 


83E5 






114C 


8354 






114E 


0586 


INC 


11 


1150 


0585 


INC 


5 


1152 


11B3 


JLT 


>10BR 


1 154 


0460 


B 


©)0F18 End with rounding and shifting 


1156 


0F18 




1158 


3203 


DRTR 


>3203 


1150 


04C4 


CLR 


4 Convert RSCII in integer 


115C 


04C0 


CLR 





115E 


C24B 


MOV 


11,3 


1160 


1008 


JMP 


>1172 


1162 


3320 


MPY 


§>117R,4 
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1164 


117R 








1166 


C104 


Moy 


4,4 


Overf low? 


1168 


160D 


JNE 


>1184 




116fl 


0580 


INC 







116C 


0148 





8,5 




116E 


C105 


MOV 


5,4 




1170 


1109 


JLT 


>1184 




1172 


0693 


BL 


*3 


Read character 


1174 


0228 


01 


8, >FFD0 


RSCII correction 


1176 


FFD0 








1178 


0288 


CI 


8, > 0000 


Smaller 10? 


117R 


0000 








117C 


10F2 


JL 


>1162 


No , go on 


117E 


C000 


MOV 


0,0 


1180 


1306 


ten 


> not 


Overf low 


1182 


0459 


B 


*9 




1184 


0203 


LI 


9, >1190 


Trick return is changed 


1 186 


1190 








11 88 


10F4 


JMP 


>1172 


btop in spite 


118R 


0460 


B 


e>0r2fl 


Set rOL and return 


iiac 


0F2O 








118E 


0450 


B 


4(10 


Return 


1190 


0606 


DEC 


6 


New end address 


1192 


C806 


MOV 


6,e>8356 


on >8356 


1194 


8356 








1196 


608C 


C 


12,2 


No string for changing 


1198 


13F8 


JEQ 


>118fl 


Error toward 


119R 


C801 


MOV 


1,e>8376 


Set +- 


119C 


8376 








119E 


0460 


D 


S>lorL4 


Overflow toward +- infinite and end 


1100 


0FC4 








XML >11 (CSN mit 


Flag auf 


>8389 0=VDP, <>0=Grom): 


11R2 


D0E0 


MOVB 


e>8389,3 


Check flag 


11R4 


8389 








11R6 


1303 


JEQ 


>11RE 




11fl8 


0203 


LI 


3, >1FD0 


From 6R0M 


11RR 


1FD0 








11RC 


1002 


JMP 


>11B2 




CSN (XML >10): 






11RE 


0203 


LI 


3, >1FC8 


Fetch from VDP 


11B0 


1FC8 








11B2 


C28B 


MOV 


11 ,10 




11B4 


C1O0 


MOV 


§>8356,6 


Fetch address 


11B6 


8356 








11B8 


0693 


BL 


*3 


Read 1st byte 


11BR 


04C7 


CLR 


7 


11BC 


C086 


MOV 


6,2 




11BE 


0288 


CI 


8, >002B 


ASCII + 


11C0 


002B 








11C2 


1304 


JEQ 


>11CC 




11C4 


0288 


CI 


8, >002D 


ASCII - 


11C6 


002D 








11C8 


1603 


JNE 


>11D0 


No sign 


11CH 


0707 


SETO 


7 


Flag for minus 


11CC 


0582 


INC 


2 


Fix length 


11CE 


0693 


BL 


»3 


Next sign 


11D0 


0288 


CI 


8, > 0030 


0? 


11D2 


0030 






11D4 


13FC 


JEQ 


>11CE 


Then next sign 


11D6 


D807 


MOVB 


7,§>8375 


Save sign 
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11D8 


8375 








IIDfl 


C306 


MOV 


6,12 


Oddress start string in R12 


11DC 


060C 


DEC 


12 


Right address 


11DE 


0707 


SETO 


7 


11E0 


1002 


JMP 


>11E6 




11E2 


0587 


INC 


7 




11E4 


0633 


BL 




Fetch character 


11E6 


0288 


CI 


a, >0030 


Compare, if character through 


11E8 


0030 






IIEfl 


1003 


JL 


>11F2 




11EC 


0288 


CI 


8, > 0039 




11EE 


0039 








11F0 


12F8 


JLE 


>11E2 


If yes, next character 
Point? 


11F2 


0288 


CI 


8, >002E 


11F4 


002E 








11FB 


1614 


JNE 


>1220 




iiFa 


0582 


INC 


2 


Compute digit Left of the point 


IIFfl 


C1C7 


Moy 


7,7 


11FC 


1102 


JLT 


>1202 




11FE 


1007 


JMP 


>120E 




1200 


0607 


DEC 


7 




1202 


0693 


BL 




Next character 


1204 


0288 


CI 


a, >0030 


0? 


1206 


0030 








1206 


13FB 


JEQ 


>1200 


Go on 


120fl 


0606 


DEC 


6 




120C 


C306 


MOV 


6,12 




120E 


0693 


BL 


9^3 


Fetch character 


1210 


0288 


CI 


8, >0030 


0? 


1212 


0030 








1214 


1003 


JL . 


>121C 




1216 


0288 


CI 


8, >0039 




1218 


0039 








121fl 


12F9 


JLE 


>120E 




121C 


8086 


C 


6,2 




121E 


13B5 


JEQ 


>1180 


Set and error 


1220 


C0a6 


MOV 


6,2 


End of number 


1222 


04C4 


CLR 


A 




1224 


0602 


DEC 


2 


Correction 


1226 


a4C1 


CLR 


1 




1228 


0288 


CI 


8, > 0045 


F? 


1220 


0045 








122C 


160F 


JNE 


>124C 




122E 


0693 


BL 


*3 


Sign exponent 


1230 


0288 


CI 


8,>002B 


+ 


1232 


002B 








1234 


1306 


JEQ 


>1242 




1236 


0288 


CI 


8,>002D 




1238 


002D 






1230 


1602 


JNE 


>1240 




123C 


0601 


DEC 


1 




123E 


1001 


JMP 


>1242 




1240 


0606 


DEC • 


6 




1242 


0600 


BL 


e>1150 


Fetch exponent in integer 


1244 


1150 






1246 


D041 


MOVB 


1,1 


Negative number 


1248 


1301 


JEQ 


>124C 


1240 


0504 


NE6 


4 




124C 


0606 


DEC 


6 




124E 


C806 


MOV 


6,e>&356 


End address 


1250 


8356 








1252 


808C 


C 


12,2 




1254 


1390 


JEQ 


>1180 


Set error 


1256 


0224 


01 


4, >0080 


Correct exponent 


1258 


0080 






1250 


04C1 


CLR 


1 
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125C 


P107 


R 


7,4 




125E 


C1C4 


MOU 


4,7 




1260 


0614 


SRR 


4,1 


Exponent :2, Basis 11 


1262 


C804 


MOV 


4,§>a376 




1264 


8376 








1266 


0B17 


SRC 


7,1 




1268 


0205 


LI 


5, >0008 


8 digits of the numb( 


126R 


0008 








126C 


0200 


LI 


0, >834B 


Begin number 


126E 


834B 






1270 


C18C 


MOV 


12,6 


Rddress, begin of th( 


1272 


8086 


c 


6,2 




1274 


130F 


JEQ 


>1294 




1276 


0693 


BL 


*3 




1278 


0288 


CI 


8, >002E 


Point? 


127P 


002E 








127C 


13FR 


JEQ 


>1272 


Next character 


127E 


0228 


RI 


8,>FFD0 


fiSCII correction 


1280 


FFD0 








1282 


0S47 


IW 


7 


First, second digit 


1284 


1105 


JLT 


>1230 




1286 


3R20 


MPY 


e>117R,8 


*10 


1288 


117R 








128R 


D060 


MOVB 


§>83F3,1 


R9 Lbyte in RI 


i2ac 


83F3 








128E 


10F1 


JMP 


>1272 


Next character 


1290 


B060 


RB 


e>83F1,1 


R8 Lbyte add to RI 


1292 


83F1 








1294 


DC01 


MOVB 


1 ,it0+ 


RI on FRC 


1295 


04C1 


CLR 


1 




1298 


0605 


BEC 


5 


RLl digits 


129n 


16EB 


JNE 


>1272 




129C 


0460 


B 


§>0F56 


Rounding and end 


129E 


0F56 









XTRB Table XMLLNK 2nd Nybble (attention limit >1B) 

12R0 11RE CSN (>10) 

12R2 11R2 CSN with flag on >8389 byte (0=VBP Ram, 0<>Grom) (>11) 

12fl4 12B8 CFI (>12) 

12fl6 1648 Name from VDP OR GROM (to 00D then search in variable list(>13) 

12fl8 164E Build stack entry from variable list (>834R Pointer to entry) 

12RR 1642 Rssign value to a var iable(stack entry) (>15) 

12flC 15D6 Search var name(Name on FRC, >8359 Length, GPL return ) (>16) 

12flE 163C VPU5HG 017) 

12B0 1F2E VPOP (>18) 

12B2 0RC0 GPL-DSRLNK (>19) Name on FRC, >83S9 Length, GPL return 

12B4 0B24 GSRLNK (1R) GPL return 

12B6 1868 Read byte from >a342, flag >8389 (0=VBP,1=6ROM) , address >832C (>1B) 



CFI (XML >12) 






12B8 


C120 


MOV 


§>834R,4 




12BR 


834R 








12BC 


1342 


JEQ 


>1342 


0, End 


12BE 


04C0 


CLR 







12C0 


0202 


LI 


2, >834B 




12C2 


634B 








12C4 


04C3 


CLR 


3 




12C6 


0760 


RBS 


§>834R 




12C8 


834R 








12CR 


04C5 


CLR 


5 • 




12CC 


D160 


MOVB 


§>a34R,5 


Exponent in 


12CE 


634R 








12D0 


0285 


CI 


5,>3F00 


Too sma I I 


12D2 


3F00 








12D4 


1134 


JLT 


>133E 


Set end 


12D6 


1318 


JEQ 


>130a 
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12D8 


0285 


CI 


5, >4100 


100 


12DR 


4100 








12DI: 


1112 


JLT 


>1302 




12DE 


1308 


JEQ 


>12F0 




12E0 


0285 


CI 


5, > 4200 


10000 


12E2 


4200 






12E4 


1B25 


JH 


>1330 


Overflow, erro 


12E6 


D832 


KQVB 


it2+,e>83E1 in Lbyte R0 


12E8 


83E1 








12Efi 


3820 


MPY 


e>1320,0 


^100 


12EC 


1320 






12EE 


C001 


MOV 


1.0 




12F0 


D832 


MOVB 


*2+.e>83E7 Lbyte R3 


12F2 


83E7 








12F4 


0003 





3,0 




12FB 


3620 


MPY 


§> 1320,0 


^100 


12F8 


1320 






12FP 


C000 


MOV 


0,0 


Overf Low? 


12FC 


1619 


JNE 


>1330 




12FE 


C001 


MOV 


1,0 




1300 


1117 


JLT 


>1330 




1302 


D832 


MOVB 


*2+.§>83E7 


1304 


a3E7 








1306 


0003 





3,0 




1308 


9832 


CB 


if2+,§>1158 


1300 


1158 








130C 


110B 


JLT 


>1324 




130E 


1509 


J5T 


>1322 


Round up 


1310 


C104 


MOV 


4,4 


Negative? 


1312 


1507 


JGT 


>1322 


1314 


D0F2 


MOVB 


*2+,3 


Next byte 


1316 


1605 


JNE 


>1322 


1318 


0282 


CI 


2, >8352 


End ? 


1310 


8352 








131C 


10FB 


JL 


>1314 


Loop 


131E 


1002 


JMP 


>1324 


Go on 


1320 


0064 


DOTO 


100 




1322 


0560 


INC 





Round up 


1324 


0280 


CI 


0, >8000 


1326 


8000 






1328 


1007 


JL 


>1338 




1320 


1B02 


JH 


>1330 


Overf low 


132C 


C104 


MOV 


4,4 




132E 


1106 


JLT 


>133C 




1330 


D820 


MOVB 


§>1159,e>a3S4 Set error 


1332 


1159 








1334 


8354 








1336 


045B 


B 


*11 


Return 


1338 


0544 


INV 


4 


Flag negative 


1330 


1101 


JLT 


>133E 


133C 


0500 


NE6 





Negate 


133E 


C800 


MOV 


0,@>834O 


Integer on FflC 










1342 


0458 


6 


*11 


End 


1344 


0010 


DOTO 






Cassette write (GPL I/O): 




1346 


04C0 


CLR 







1348 


0202 


LI 


2, >0300 




1340 


0300 






134C 


0208 


LI 


8, >1E19 




134E 


1E19 






1350 


0203 


LI 


3, >0023 




1352 


0023 
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1 JlDt 




m 

OL 


e)13BR 


3et Lr\U ana pointer 


1 ODD 


1QQQ 








1 J30 


01'? Old 


1 T 


lU ; / 1 OC<l 


Print routine 


135R 


13E2 






1 o^l- 




1 TMT 


/ VjIlJVJ I 


Enable interrupt 


1 30C 


dOICH 






1 JalO 




i_i_r\ 


A 


rrint signal constant 


1 430^ 


ilIOOIlJ 


oi_ 


«0I 


1 OOM 


OIROI'7 


npr 






1 ODD 


1RPr 
IDr L. 


IMP 


/ 1 ODU 


Loop 


1 0(30 




DC 1 u 


*l 




1 OOH 


dRQCI 






. . 1 r-ir 

rrint signal >rr 


1 oou 


L. 1 u3 


nuv 


3 1 " 


1 JOC 


(TIRPifi 


I.IIIPQ 

jWrD 


A 






KiDOCi 


Rl 


^01 


Length of the tranr.fpr 




(_ IIlj3 


nuv 


R A 


1 «j/ s 




3WrD 


*t 




1 J/ □ 


IuD3IlI 


PI 


M.OI 
*I0 


P r* i r-i * Of-ti-l l-kti^A 

rrint cno oyte 


IJ/O 


oi^rQ 

UHUO 


i.L.r\ 


q 
3 


n7D 

1 «3/ H 




1 T 


'y \ OTddA 
^ 1 / kJIuIuO 














n7P 




ri p 


A 




1 OOl9 


IuD3IlI 


PI 


^01 


rrint o times ixixi 






npr 






nA4 


TRPr 


IMP 
Uric 


/ 1 o/ c 




1 JOD 


(717 Cl^ 
10/ KIH 


3C1 1 U 


4 




1'^AA 


OIRQCI 
luO3l0 


Rl 


^0 


Print 1 time >FF 


nAD 


11/ Cxi 




§)a3F5,*15 Write buffer address 


1 ^AP 
1 JOL 


AQPC 

oorD 








1 QAR 




1 T 

Li 


2, >0040 


Number of data blocks 












•1000 


n7ro 

U/LH 


Mnijp 
nuvD 


10,*15 






Di/ir7 


l_l_r\ 


7 




T^RR 


lUHL-H 




4 




1 JSO 


ni^P 
u 1 




e>FBFE(15),4 Fetch byte from VDP 


1 >33H 


PPPC 
rDrt 








1 031. 


H 1 l_S 


n 

H 


4.7 


Build check sum 


1 03u 


OIRQCI 


Rl 


4(0 


Print byte 


1 OHIU 




rtpr 


2 


64 bytes? 


1 OH& 


1RPP 

■ or 3 


IMP 


>133B 


No, next byte 


1304 


C107 


MOV 


7,4 


Transfer check sum 


I'^QR 

1 OHO 


IOD3ICI 


Rl 


«0 




13R8 


0549 


INV 


3 


Loop flag 


1 OHH 


1RF7 
1 DC/ 


IMP 


>137R 


The whole twice 


loHL 


noon 


riT 

Hi 


10, >0040 


Increase buffer address 


nop 

1 OHC 


\a\OHv 








1 ODIu 


oiROic: 


npr 


5 


Rll data blocks? 




IDCO 


IMP 


>137R 


No, go on 


13B4 


10FF 


JMP 


>13B4 


Wait for interrupt 


13B6 


0460 


B 


§>155E 


CRU reset and end 


13B8 


155E 








Pointer for 


cassette transfer 


13BP 


C171 


MOV 


*1+,5 


Fetch number of bytes 


13BC 


0225 


RI 


5, >003F 


Integer >40 


13BE 


003F 






13C0 


0365 


5RL 


5,6 




13C2 


E011 


50C 


*1,0 


Rddress data buffer 


13C4 


C2a0 


MOV 


0,10 


in R10 


13C6 


D7E0 


MOVB 


§>83E1,*15 Write VDP address 


13C8 


asEi 








13Cfl 


04C1 


CLR 


1 




13CC 


04CC 


CLR 


12 




13CE 


D7C0 


MOVB 


0,*H5 




13D0 


E3n0 


50C 


§> 0032, 14 


>0020 Set interrupt fla< 


13D2 


0032 
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13D4 


1E02 


5BZ 


>0002 


Interrupt enable 


13D6 


1E0C 


SBZ 


>000C 




13D8 


33C3 


LDCR 3,15 


Load CRU 


ISDfl 


1E00 


SBZ 


)0000 




13DC 


1E01 


SBZ 


>0001 




13DE 


1D03 


SBO 


>0003 




13E0 


045B 


B 


*11 


Return 


Output of a 


byte 


to cassette recorder: 


13E2 


0206 


LI 


6, >0008 


Loop counter 8 bits 


13E4 


0008 






13E6 


0544 


INV 


4 


Invert byte 


13E8 


10FF 


JMP 


>13E8 


Wait for interrupt 


13ER 


0488 


X 


a 


SBZ >0019 Mag tape out 


13EC 


2n20 


XOR 


§>135C,8 


Convnand to SB0 


13EE 


135C 






13F0 


10FF 


JMP 


>13F0 


Wait for interrupt 


13F2 


C104 


MOV 


4,4 


Set bit 


13F4 


1103 


JLT 


>13FC 


Yes, then jump to next byte 


13F6 


0488 


X 


8 


SBO >0019 Mag tape out 


13Fa 


2n20 


XOR 


e>135C,8 


Coirmand to SBZ 


13Ffl 


135C 






13FC 


0ni4 


SLR 


4.1 


Next bit 


13FE 


0606 


DEC 


6 


RU 8 bits? 


1400 


16F3 


JNE 


>13E8 


No, go on 


1402 


045B 


B 


*11 


Return 


Interrupt cassette: 




1404 


1E00 


SBZ 


>0000 


Control 3301 set 


1406 


1D03 


SBO 


>0003 


Timer interrupt reset 


1408 


C041 


Moy 


1,1 


R1 Negative?. 


140n 


1107 


JLT 


>141R 


140C 


02E0 


LWPI 


>83C0 


INTWS 


140E 


83C0 








1410 


881 E 


c 


*f14,§>13F0 Compare *R14 with>10FF (JMP -Z. 


1412 


13F0 








1414 


1602 


JNE 


>141R 




1416 


05CE 


INCT 


14 


R14+2 Trick, jump from infinite 


1418 


0380 


RTWP 




End 


141R 


02E0 


LWPI 


>83C0 




141C 


83C0 








141E 


C3R0 


Moy 


§>83EC.14 


R6 GPLWS becomes new R14 


1420 


83EC 








1422 


i0Fn 


JMP 


>1418 




1424 


2100 


DRTR 


>2100 




Cassette verify 


(GPL I/G): 




1426 


E3n0 


50C 


§> 1344, 14 


Set flag verify 


1428 


1344 






142fl 


04C0 


CLR 





Read VDP 


142C 


1004 


JMP 


>1436 




Cassette read (GPL I/O): 




142E 


43R0 


5ZC 


§>1344,14 


Flag read 


1430 


1344 






1432 


0200 


LI 


0, >4000 


Write VDP 


1434 


4000 








1436 


0203 


LI 


3, >002B 


CRU 


1438 


002B 








143fl 


06n0 


BL 


§>13BH 


Fetch pointer, write ^DP address 


143C 


13BR 






143E 


CICfi 


Moy 


10,7 


Data buffer in R7 


1440 


04C0 


CLR 







1442 


D820 


MOVB 


e>1443,§>837C Set condition bit GPL status 


1444 


1443 
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1446 


837C 








1446 


0208 


1 T 




Waiting Loop reception 


14413 








144C 


0300 


LIMI 


>0001 


Enable interrupt 


144E 


0001 






1450 


0206 


LI 




uvc r iiiLcrrup^ new 


1452 


1458 






1454 


0203 


|_I 


3 ) 002B 




1456 










1458 


0241 


ONDI 


1 , > 00FF 




1450 


00FF 












DFr 


A 
o 


Loun t Qown Loop 










End with error 


1460 


0202 


|_J 


7 > nn3Pi 




1462 










1464 


C000 


MOV 


0,0 




14RR 


1 OKI I 


IMF 


) 14RQ 




1468 


0082 




2,2 


rini ih 1 o 


146n 


0600 


BL 


©>1S72 




146C 


1572 








14BE 

1 "LJt- 


1001 


JMP 


> 1477 


iM=t.civc ^iiciraCLcr 1 go un 


1470 


10F3 


JMP 


> 1456 




1472 


0502 


DEC 




1474 


1RFQ 


IMF 


i 14RQ 




1476 




1 T 
^ 1 


q J 7FFF 




1476 


7FFF 








147Q 




1 T 






i47r 










147E 


33C9 


LDCR 


9, 15 


5e t CRU 


1480 


1E00 


5BZ 


> 0000 




1482 


1003 








1484 


0600 


BL 


6> 1560 




1486 


ISBfl 








1466 


1001 


JMP 


>146C 


Rgcg i V6 ch3nQ6 (bit) 


148P 


10FC 


JMP 


> 1464 


Kin ^hianna 




PIRfIA 

IlIOIuO 


rtFr 


o 


o oi L s r 


14AF 


1RFD 




s 14A4 


QncG more 


1430 


1D00 


5B0 


)0000 




149? 






3 m 

<3 1 13 


Piai'^K rpi 1 
re ten L.nu 


1494 


6243 


5 


3i9 


In anna 
LI laliyc 


1436 


C0C9 


MOV 


9 3 


1498 




c;i □ 


w , ^ 




i4yn 


O0C9 


P 


9.3 




149C 


0963 


SRL 


3,6 




143E 


0263 


OR I 






14R0 


0001 






14R2 


0200 


LI 




1 1 X i. K return 


1404 


1480 








1406 


0283 




3 >001F 




14DA 


nniF 








l*tHH 


1 1114 


II T 






i4Qr 


CI4Rn 
luHDU 


D 
D 




rxSaO oil 


14DP 

1 IHC 


1 3013 








14B0 


0600 


Rl 


a i 1^77 


neceive i oit 


14B2 


1572 








I4n4 

1 MOM 


IIUllJ 


IMP 


V 1/lRCI 
' IHOIO 


No CndHQe 


1 HOD 




1 T 




uo on / oits 


14B8 










14BR 


0600 


Rl 






14BC 


1572 








i4nF 




IMP 




Unce ntore 


14C0 


0602 


nFr 




□ 1 1 7? 


14C2 


16FB 


INF 




No 1 QO on 


14C4 


0206 


LI 


6, >14Fa 


Trick return 


14C6 


14F8 








14C8 


C000 


MOV 


0,0 


Data block 
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14Cfl 


1631 


JNE 


>152E 




14CC 


D820 


MOVB 


§>1424,e>837C Set error 


14CE 


1424 








14D0 


837C 








14D2 


C007 


MOV 


7,0 


Prepare address 


14D4 


04C7 


CLR 


7 




14D6 


0600 


BL 


@>15O0 


Receive number of data blocks 


14D8 


15R0 








14Dn 


8105 


c 




tnouQn Storage 


14DC 


1040 


JL 


/ 1 


^no witn error 


14DE 


CI 44 


MOV 


, o 


New number data blocks 


14E0 


0585 


INC 


c 




14E2 


0507 


NE6 


7 




14E4 


0600 


BL 




Fetch 2nd time 


14E6 


1500 








14E8 


1630 


JNE 


>15SE 




14ER 


101D 


JMP 


>1526 


Go on with 1st data block 


14EC 


0247 


ONDI 


7 , > 00FF 


Clpar 1 «; t hv/tp 


14EE 


00FF 






14F0 


0507 


NE6 


7 


Negate 


14F2 


0600 


BL 


@>15O0 


Fetch check sum 


14F4 


1500 








14F6 


1307 


JEQ 


>150B 


O.k. (Oddition must result in 


14Fa 


C145 


MOV 


5,5 


01 ready the 2nd time 


14FP 


1131 


JLT 


>155E 


End with error 


14FC 


D7E0 


MOVB 


e>83E1,it15 Write VDP address 


14FE 


83E1 








1500 


0505 


NE6 


5 


Flag R5 


1502 


D7C0 


MOVB 


0,*15 


1504 


1001 


JMP 


>1448 


Once more from beginning 


150B 


CI 45 


MOV 


5,5 


1 time 


1508 


1108 


JLT 


>1510 


No , j ump 


1500 


0202 


LI 


2, >004a 


Receive 49 character 


150C 


0043 








1S0E 


0206 


LI 


6, >1516 


New PC over interrupt 


1510 


1516 






1512 


0600 


BL 


@>15O0 


Fetch byte 


1514 


1500 






1516 


0602 


DEC 


2 


Oil ? 


1518 


16F0 


JNE 


>150E 




ISIfl 


0220 


01 


0, >0040 


New VDP address 


151C 


0040 








151E 


D7E0 


MOVB 


@)a3E1,*15 Write address 


1520 


83E1 








1522 


0745 


OBS 


5 




1524 


D7C0 


MOVB 






1526 


04C7 


CLR 


7 




1528 


0605 


DEC 


5 


Oil data blocks 


152R 


168E 


JNE 


)1448 




152C 


1015 


JMP 


>1S58 


End 


152E 


0202 


LI 


2, >0040 


>40 Character 


1530 


0040 








1532 


04C7 


CLR 


7 




1534 


0600 


BL 


§}15O0 


Receive 


1536 


1500 








1538 


06C4 


SWPB 


4 




1530 


2300 


CQC 


@>1344,14 


>0010 


153C 


1344 








153E 


1607 


JNE 


)154E 




1540 


712F 


SB 


e>FBFE(15),4 Verify 


1542 


FBFE 








1544 


1306 


JEQ 


>1552 


O.k. Jump 


1546 


0285 


CI 


5, >0001 


1548 


0001 








154fl 


1303 


JEQ 


>15S2 


End of data blocks ? 


154C 


10D5 


JMP 


>14F8 
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1 DmC 


UOu^ 




4,@)FFFE(15) Byte in VDP 




rrrc 












npr 


2 


End of data block: 


1 «3«J*1 


1RFF 


IMF 


>1534 




mere 


llul.H 


IMP 


>14EC 








nuvo 


§)1438,e)837C Clear conditi( 














03/1. 










*i3rllO 


^7r 


V 1 \ 3*1*1 1 1 M 


Clear interrupt f 


1560 


1344 






1562 


43R0 


R7r 


@>0032,14 














1SRR 


ICIu3 


RH7 
3DZ. 


> juVjVSQ 


CRU reset 




inoir 


c;Rn 


>ldUidL 




I30H 


1 UcJ 1 


3DU 






156C 


1D02 


5B0 






156E 


0460 


B 


e>0070 


To GPL interpretei 


1R7DI 


(7CI7DI 






1R7P 


rPAR 
U^OD 


nuv 


1 1 , lla 




1R74 


itjrr 


IMP 

Jnr 


> 13/ 


III • J. r • 1. 

vUait for interrup' 


1 o 


RROn 

luOHIU 




^ / 1 3DH 


13/ O 


I3DH 








|3/ H 


ICI31.H 




Id 
lU 


No change from Rl 










1 3/ C 








mAn 






a \ "1 /ten "1 


D"! \PCf70l 


1582 


145R 






1 30*T 


13103 


(pn 


> I30L 




"1 ^AR 
1 30D 


Ir 1 D 


Tn 

1 D 


>ldU ID 


nag tape in, NcQ : 


1RAA 




(NF 


> 13310 


158P 




IMP 


/ I30Q 






1F1R 
1 r 1 □ 


TR 


)\OKl ID 


M^n ^ ^nn in PDI 1 

nag tape in, quu : 


ii=;nF 


1RFF 


IMF 


)15flC 


I33U 


33(— 3 


1 nrp 


3,15 


Load new CRU 


133^ 


1RCtn 


Qfl7 
30^ 


>0000 




1 33H 


men 


RRn 

3DU 


>0003 




I33D 


tJ^H I 


□MHT 


1 , >00FF 


R1 >00XX 


I33u 


CtDIPR 
lOIOr r 








153fl 


2860 


XOR 


§>145fl,1 


XOR with>00FF 


159C 


145R 








159E 


045R 


B 


*10 


Return 


Receive byte in R4 and built check sum in R7 


15R0 


0208 


LI 


8, > 0008 


8 Bits 


15R2 


0008 








15fl4 


04C4 


CLR 


4 




15fl6 


C24B 


MOV 


11,9 




IBRfl 


0R14 


SLR 


4,1 




15flR 


06R0 


BL 


e>1572 


Fetch 1 bit 


15RC 


1572 








15RE 


1001 


JMP 


>15B2 


See TB entry 


15B0 


0584 


INC 


4 


Set bit 


15B2 


0608 


DEC 


8 




15B4 


16F3 


JNE 


>15Ra 


RU 8 bits? 


15B6 


R1C4 


n 


4,7 


Built check sum 


15B8 


0459 


B 


*9 


Return 



15BR 


1F1B 


TB 


>001B 


Mag 


15BC 


1306 


JEQ 


>15Cfl 


15BE 


2460 


CZC 


§>145R,1 


>FF 


15C0 


145fl 






15C2 


1306 


JEQ 


>15D0 




15C4 


2860 


XOR 


e>145R,1 




15C6 


145R 








15C8 


045B 


B 


*11 





if EQU R1=00. then R1=FF u. B*11 

if EQU R1=FF, then R1=FF u. B*11+2 

if NEQ R1=00, then R1=00 u. B*11+2 

if NEQ R1=FF, then R1=00 u. B»11 
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TtjLH 






e> iHbHi 1 




15CC 


1450 










1 '3FQ 

lOrH 


icn 


} lbl_M 




15D0 


05CB 


INCT 


11 




15D2 


045B 


B 


H11 




15D4 


6500 


DRTR 


>6500 




XML >16 (Search variable name), leads back to GPL 


1 CDC 


CICOCI 

lobHlcl 


ni 
dL 


@>15E0 


Search name 


lauo 


'1FFDI 










luKtbH 


UH 1 H 


>00Bn 


Return reset condition bit 




ifllbld 


□ 


@>00CE 


Return set condition bit 


I3UC 


DtoirF 










ri9Pi 


1 lUV 


§>833E,4 


Pointer fetch var list 




AT^F 








1 3d 




iFn 


>1B0R 


No list, end reset condition bit 


1 3CD 


nciFCi 


MnUR 

nuvD 


@>8353,3 


Fetch length byte 


1 wCO 












ri R 
I— L.r\ 


7 








T wr 


4 








Mni iQ 


e>83E9,if15 Write VDP address 


*! cent 


OJC3 








15F2 


1000 


JMP 


>15F4 




15F4 


D7C4 


MOVB 


4,}f15 




IbrD 


01*7 DIQ 


Li 


10, > 8800 


VDP read data 


icca 
laro 










1 OrH 




LD 


*t10,3 


Compare length of variable 


1 3Fw 


1 OHIO 


IFD 


>160E 


Right, check name 


1 3rc 


U I3H 


nuvD 


if10,6 


Rddress next variable 


1 DulU 




IMP 


>1602 






UO 1 H 


nuvD 


*H0,e>83ED 




odcU 








J DUO 


L lldb 


Mm 1 
rlUv 


6,4 


New address in R4 




Tbrl 


JNc 


>15EC 


Go on 




L<iUd 


Mni 1 
rlUV 


*11 ,11 


Fetch return 


IbldL 




D 
□ 


*11 


Return 


160E 


Disn 


MOVB 


*10,6 


Rddress next variable 






JMr 


>1612 




lolZ 


□81 n 


MUVD 


*10,§>83ED 


1B14 


83ED 








1B16 


1000 


JMP 


>1618 




1618 


D15n 


MOVB 


*10,5 


Rddress name of variable 


1B1R 


D803 


MOVB 


3,@>83EF 


Length byte in R7 Lbyte 


161C 


83EF 






1B1E 


D0Sn 


MOVB 






icon 




rlDVD 


2,*15 


Write address VDP 


1622 


1000 


JMP 


>1624 




1624 


D7CS 


MOVB 


5,*15 




1626 


0202 


LI 


2,>834R 


PRC 


1628 


834P 








162fi 


SC3H 


CB 




Compare name 


162C 


16EC 


JNE 


>1606 


Next variable 


162E 


0607 


DEC 


7 




1630 


15FC 


JBT 


>162R 


Until length end 


1632 


0604 


DEC 


4 


1634 


C804 


MOV 


4,e>834fl 


Rddress on PRC shows to value of 


1636 


8340 








1638 


048B 


B 


e>0002(11) Return +2 


163R 


0002 









VPUSHG (XML >17) 
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163C 020B LI 6,>1ERn Routine address 
163E lERR 

1640 1008 JMP >1652 



XML >15 Coordinate VDP stack entry to variable 
1642 0206 LI 6,>1768 Routine address 
1644 1788 

1646 1005 JMP >1652 



XML >13 Look on PRC and in symboLe list for variable name from 6R0M or from VDP 
1648 0206 LI 6,>176fl Routine address 



164R 


176R 








164C 


1002 


JMP 


>1652 




XML >14 Value stack entry 


f nr Kjsi r \ ah 1 fi nn FQl" 

1 Ul veil XC3UVC Ul 1 1 nL- 


164E 


0206 


LI 


6, >1670 




1650 


1670 








1652 


C1CB 


MOV 


11,7 




1654 


06R0 


BL 


6 > 0864 


Push 6R0M address on substack 


1656 


0864 








1658 


06R0 


BL 


e>1E7fl 


R9 Address substack, R8=>8342, 


165fl 


1E7fl 








165C 


05C9 


I NET 


9 


ROM return address on substack 


165E 


C647 


MOV 


7.*9 




1660 


0636 


BL 


*6 


Execute routine 


IBBii 


C1D3 


MOV 


*9,7 


Return address from substack 


1664 


0649 


DECT 


9 




1666 


06R0 


BL 


§>1E8C 


Set substack pointer and >8342 


1668 


lESC 








166R 


06R0 


BL 


@>0842 


POP GROM address from substack 


166C 


0842 








166E 


0457 


B 


Jt7 


Return 



XML >14 Main part: 




1670 


05C9 


INCT 


9 


Return on substack 


1672 


C64B 


MOV 


11,^t9 




1674 


C820 


MOV 


§)834R,e)834E PRC on FRC+4 


1676 


834R 








1678 


834E 








167fl 


R820 


R 


§>iai6,e>B34E Add FRC+4 >0006 


167C 


1816 








167E 


834E 








1680 


06R0 


BL 


e>13F6 


Fetch one byte from VDP address in R1 


1682 


19F6 








1684 


1108 


JLT 


>1636 


Byte in R1 negative = string 


1686 


04E0 


CLR 


@>834C 


No i ump 


1688 


834C 








168R 


0288 


CI 


8, >B700 


Basic token ( 


168C 


B700 








168E 


131E 


JEQ 


>16CC 


Jump 


1690 


C2D9 


MOV 


*9,11 


Fetch return from stack 


1692 


0649 


DECT 


9 




1694 


045B 


B 


if 11 


Return 


1696 


0288 


CI 


8, )B700 


Basic token ( 


1698 


B700 








1690 


1318 


JEQ 


>16CC 


Jump 


169C 


C&20 


MOV 


§>15D4,§>834C >6500 on >834C (String tag) 


169E 


15D4 








16R0 


834C 








16P2 


C0E0 


MOV 


§)a34E,3 




16R4 


834E 








16R6 


C803 


MOV 


3,§>834fl 


Address *G 


16R8 


834R 








16RR 


06R0 


BL 


@>1880 


Byte in R1 from VDP 


16RC 


1880 
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16RE 


0820 


MOVB 


e>a&00,e>83E3 word pointer value variable? 


16B0 




















16B4 


C801 


MOV 




riddress string 


16B6 


834E 






IBBfl 


C0C1 


MOV 


1 T 

1 1 J 


Space string 


16BR 


1304 


JEQ 


> ICLm 


JuiTip 


16BC 


0603 


DEC 


q 
J 


Oddress length 


1BBE 


0600 


BL 


A V 1 OOCI 
6 / 1 OOI0 


Fetch byte 


16C0 


1880 






16C2 


0981 


SRL 


i A 




16C4 


C801 




1 1 6 > odsid 


Length on >od3k3 


16C6 


8350 






1BC8 


10E3 


JMP 


/ 1 DSItl 


End 


16Cfl 


0007 


DOTO 






Data 


field: 








16CC 


0051 


5L0 


1 c: 
1 , 3 


1st 3 bits way, number of dimensions 


16CE 


03D1 


SRL 


1 13 


1BD0 


C801 


MOV 


1 'e>834C 


On >834C (Number dimensions) 


1BD2 


834C 








1BD4 


04C2 


CLR 




Length 


16D6 


C802 


MOV 




1BDB 


8350 






1BDR 


0600 


BL 




retch 1 byte from VDP or uROM 


1BDC 


1F7E 






1BDE 


0600 


BL 


@>1E9C 


VPU5H6 with PRRSE Basic interpreter 


1BE0 


1E9C 






16E2 


B700 


DOTO 


>B700 


Token ) 


1BE4 


9820 


CB 


§>834C,e>15D4 >65 


16E6 


834C 








16E8 


15D4 








IBER 


1425 


JHE 


>1736 




16EC 


04E0 


CLR 


§>8354 


For possible error 


16EE 


8354 






16F0 


0600 


BL 


e)12B8 


CFI 


16F2 


12B8 








16F4 


D120 


MOVB 


@)8354,4 


Error? 


1BF6 


8354 






1BF8 


1631 


JNE 


)175C 


End with setting error 


IBFfl 


CI 60 


MOV 


§>8340,5 


Pointer for variable table 


1BFC 


8340 








1BFE 


0600 


BL 


e>1F2E 


VPOP 


1700 


1F2E 








1702 


0600 


BL 


^»>187C 


Fetch byte from VUH 


1704 


187C 






1708 


834E 


DOTO 


>834E 


Pointer to value 


1708 


□820 


MnuR 


@>8800,§>a3E3 Word in R1 


1700 


8800 








1701: 


83E3 








170E 


8045 


c 


5,1 


Right value 


1710 


1B25 


JH 


>175C 


1712 


D120 


MOVB 


e>8343,4 


Option base value 


1714 


8343 






171G 






>171E 




1718 


0605 


DEC 


5 




1710 


1 120 


JLT 


>175C 




171C 


1001 


JMP 


>1720 




171E 


0581 


INC 


1 




1720 


3660 


MPY 


e>8350,1 


Right address to pointer on value 


1722 


8350 






1724 


0085 


PI 


5,2 


-f Begin 


1726 


05E0 


INCT 


e>834E 


1728 


834E 








1720 


0620 


DEC 


§>834C 


Oil dimensions? 


172C 


834C 








172E 


1305 


JEQ 


>1730 
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1730 


0288 


CI 


fl > H300 


Token ? 


1732 


B3B0 








1734 


13D0 


JEQ 


>16D6 




1736 


0460 


B 


@>102C 


End with error 


1738 


102C 








1730 


0288 


CI 


8, >B600 


Token ) 


173C 


B600 








173E 


16FB 


JNE 


> 1736 




1740 


0600 


BL 


§) 1F7E 


ypop 


1742 


1F7E 








MAA 


0600 


BL 


§> 187C 


Fetch hvte from UDP 


1746 


187C 








1748 


8340 


DOTO 


>a340 




174R 


1104 


JLT 


> 1754 


S 1 r i HQ 


174C 


0032 


5L0 


2,3 


d (for nums r i c ddts FisLd) 


174E 


0802 




2 , @ > a34E 


1 auui vaLUC 


1750 


834E 








1752 


109E 


JMP 


> 1690 


End 


1754 


0012 


5L0 


2,1 


2 


1756 


0802 


q 


2,6) 834E 


Correct dddr6ss 


1758 


834E 








1750 


1000 


JMP 


) 169C 




175C 


0200 


LI 


> 0503 




175E 


0503 








1760 


0460 


B 


@>1O30 


End with error 


1762 


1030 








1764 


0200 


LI 


0, >0603 


Error 


1766 


0603 








1768 


10FB 


JMP 


>1760 




XML ; 


> 13 Main par t : 




1760 


04E0 


CLR 


@)8359 


LsriQ^h pointer 


176C 


8359 






176E 


0202 


LI 


2, >8340 


FOC 


1770 


8340 








1772 


C04B 


MOV 


11,1 


Save return 


1774 


DC88 


MOVB 8,*2+ 


Rfl on FOC (at > 8342 5 


1776 


0500 


INC 


e>8359 


Increase length byte 


1778 


8359 






1770 


0600 


BL 


e)1F7E 


Fetch byte from VDP or GROM 


177C 


1F7E 






177E 


15F0 


JGT 


>1774 


1 In fl 1 noojafii/o 
\J* \ \ X \, iicyciLXVc 


1780 


0600 


BL 


§>15E0 


2a f* r" PI n nmci in tiar*iafilo lief 


1782 


15E0 








1784 


1736 


DOTO 


>1736 


Data (Return not found) 


1786 


0451 


B 




11 \e TniiPifi larifH p r 1 1 p n 


XML ; 


>15 Main part: 




1788 


C28B 


MOV 


11 ,10 




1780 


0600 


BL 


e>iFoa 


Fetch a bytes from stack on ORG 


178C 


1F08 






178E 


0600 


BL 


§)187C 


Rp^^d 1 hutp f rnm UHP in R1 


1790 


ia7C 






1792 


835C 


DOTO 


>a35C 


Data <^DP addresses pointer 


1794 


9820 


CB 


e>835E,e>15D4 String tag? 


1796 


835E 








1798 


15D4 








1790 


1307 


JEQ 


>17Rfl 


O.k. go on 


179C 


9820 


CB 


e>834C,@ 


)15D4 String tag? 


179E 


834C 






1700 


1bU4 








1702 


14E0 


JHE 


>1764 


Error 


1704 


0202 


LI 


2, >000a 




1706 


0008 
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1708 


1051 


JMP 


>ia4c 




17RH 


9820 


CB 


§>834C,§>1SD4 String tag? 


17flC 


834 C 








17fiE 


15D4 








17B0 


16D9 


JNE 


) 1764 


Error 


17B2 


C060 


MOV 




DHrl m<: R? 
nuu 1 c 9 9 « 


17B4 


6360 








17B6 


130E 


JEQ 


>17D4 


Set 


17Ba 


0600 


BL 


§>167C 


1 Byte in R1 


17Bfl 


167C 






17BC 


635C 


DO TO 


)63C5 


Pointer address VDP 


17BE 


D820 


MOVB 


6 > 8600, @> 8353 Fetch 2nd byte 


17C0 


6600 








17C2 


63E3 








17C4 


C801 


MOV 


-1 a > A3R0 


PniPitof* TO c^rinn 


17C6 


8360 




17C8 


8601 


c 


1 ,§>834E 




17C0 


634E 








17CC 


1317 


JEQ 


>17FC 


S t r i ng IdsnticsL / snd 


17CE 


04C6 


CLR 


6 


17D0 


0600 


BL 


@> 1600 


Write R6 in VDP (string offset 


17D2 


1800 






17D4 


C120 


Moy 


@>8350,4 


Length string 


17DB 


6350 






17Dfl 


130C 


JEQ 


>17F2 




17Dn 


C0E0 


Moy 


@>B34fl 3 




17DC 


6340 








17DE 


0283 


CI 


3, >001C 


5t rinn pynrp<;<:i on*? 


17E0 


001 C 






17E2 


160D 


JNE 


>17FE 




17E4 


C120 


MOV 


@>634E,4 


Pointer to string 


17E6 


a34E 






17E6 


C1R0 


MOV 


@>835C,6 


Pointer variable list 


17Efl 


835C 








17EC 


C044 


MOV 


4,1 




17EE 


0600 


BL 


@>1600 


U/rite pointer to variable list 


17F0 


1800 






17F2 


C060 


MOV 


@>a35C,1 


Pointer variable list 


17F4 


635C 








17F6 


C164 


MOV 


4,6 




17Ffl 


0600 


BL 


@>18flE 


Write R6 in VDP without offset 


17FR 


180E 








17FC 


0450 


B 


^f10 


End 


17FE 


C620 


MOV 


e>6350,e>830C String length 


1600 


8350 








1802 


830C 








1804 


C620 


MOV 


e)16C0,§>8322 Error code 7 


1806 


16C0 








1808 


6322 








180P 


0600 


BL 


§>1E00 


VPUSHG 


180C 


1E00 








180E 


C60O 


MOV 


10,e>834O 




1810 


6340 








1812 


0600 


BL 


§>1040 


Fetch space for string (over 6f 


1814 


1040 






1816 


0005 


DOTO 


>0006 




1818 


C2O0 


MOV 


§>634O,10 




1810 


6340 






181C 


0600 


BL 


e>1F2E 


VPOP 


181E 


1F2E 








1620 


C0E0 


MOV 


§>834E,3 


String address 


1622 


834E 




1824 


C160 


MOV 


§>831C,S 


Pointer to string space 


1826 


831C 






1828 


C105 


MOV 


5,4 
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1 U^M 


l_lLlrtlLj 


wnu 

1 ILJV 
















5, >4000 










1832 


luwrlCJ 


BL 


O^1AA0 1 Ruto from UnP uifhniif riafa nnii 
/ looKi 1 oyte T rum VUl wlLnOUX OaCa poll 




1 AAR 










A^A'^FR tlJpifo UrtP aiHripocc 


1 o«jo 












IMP 




ia3c 


D7C5 


MOVB 


5,^t15 


163E 


0585 


INC 


5 




UOCI 1 


MOVB 


1 B^fKmPl (Urife R1 in URP 
I f^z / OU.ILIKI write r\i in v iJi 


1842 


8C00 






1844 


0583 


INC 




1846 


0602 


DEC 


2 Length-1 


1848 


15F4 


JGT 


>ia32 Go on 


1 OMri 




(MH 
iJI 11 


>17E8 End 


184C 


l» 1 OKI 


1 lUV 


e>8360,5 Value pointer 


1 A4F 






1 A^tR 

1 03ICI 




riuvD 


@>83EB,H15 Write VDP address 


1 A^P 


A^FR 








RRT 


3/ )4l0iuU ror writing 


1856 






1 OwO 


U/ 


1 iLIVU 




185R 




1 T 


A \ A'^^Q FDr 










18SE 


D834 


KOVB 


4('44' O)Ar00 Fpnm For in URP 


1 OUKI 








1862 


0602 


DEC 


2 


1864 


15FC 


JGT 


>185E Until end 


1866 


0450 


B 


*H0 Return 


XML >1B Read 1 byte from VDP or GROM 


1868 


C30B 


MOV 


11,12 


1860 


0600 


BL 


@>0664 Push GROM address on substack 


186C 


0864 






ia6E 


0600 


BL 


e>1F7E Fetch byte 


1870 


1F7E 




1872 


D808 


MOUB 


8,@)8342 Read byte at >8242 (actual Basic 


1874 


8342 




1876 


0600 


BL 


e>0842 POP GROM address from substack 


1878 


0842 






1870 


045C 


B 


*12 Return 


Read 


1 byte 


f rom 


VDP, Entry over data address pointer 


187C 


C0FB 


MOV 


^t11 + ,3 Fetch data 


187E 


C0D3 


MOV 


*3,3 Fetch address 


1880 


D7E0 


MOVB 


e>83E7,*H5 Write address 


1882 


83E7 . 






1884 


1000 


JMP 


>1886 


1886 


D7C3 


MOVB 


3.*15 


1888 


1000 


JMP 


>1880 


1880 


D060 


MOVB 


@> 6600,1 Read byte 


188C 


8800 




188E 


045B 


B 


*11 


Fetch 


8 bytes from VDP over stack entry FRC 


1830 


D7E0 


MOVB 


e>834F,*15 Write address 


1892 


834F 






1894 


0202 


LI 


2, >0008 Loop counter 


1896 


0008 




1698 


D7E0 


MOVB e>834E,*15 


1690 


834E 






189C 


0203 


LI 


3,) 8340 FOC 


189E 


8340 
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i6n0 


DCE0 


MOVB 


@> 8800,^3+ Fetch byte 


i8n2 


8800 








18R4 


0602 


DEC 


2 




1806 


15FC 


JGT 


>18R0 


Loop end? 


18Ra 


045B 


B 




Return 


Write 


R6 in 




(R1=flddress+3) , used for variable table and string pointei 


18nP 


0221 


RI 


1 , >FFFD 


R1-3 


18RC 


FFFD 








18RE 


D7E0 


MOVB 


§>83E3,*15 Write address 


1880 


a3E3 








18B2 


0261 


OR I 


1 , >4000 


For writing 


1864 


4000 






18BB 


D7C1 


MOVB 


1 ,*^5 




18B8 


1000 


JMP 


>18BR 




18BR 


0806 


MQVB 


6,§)8C00 


Write 1st byte 


18BC 


8C00 






18BE 


D820 


MOVB 


@>83ED,§>8C00 2nd byte 


18C0 


83ED 








18C2 


8C00 








18C4 


045B 


B 


*H1 


Return 


18C6 


19CR 


DRTR 


>19CR 




GPL PRR5E 








laca 


06R0 


BL 


e>1E7R 


Pointer substack in R9, >8342 in R8 


18CR 


1E7fl 






18CC 


D2ED 


MOyB 


§>0002(13) ,11 Actual GRom address in R11 


18CE 


0002 








18D0 


D82D 


MOVB 


e>0002(13),e>83F7 


18D2 


0002 








18D4 


83F7 








18D6 


022B 


RI 


11, >7FFF 


Trick R11 1st bit is set=6R0M 


1 AHA 

1 OLIO 


7FFF 








lOUH 


UOl-O 


INCT 


9 




1 Anr 




CI 


9, >83BR 


Substack full 


1 out. 


OJDH 








1 OCIu 


1 D 1 U 


JH 


>191C 




18E2 


C64B 


MOV 


11,^*9 


R11 on substack 


18E4 


Dice 


MoyB 


8,7 




18E6 


1102 


JLT 


>18tC 


Basic token? 


18Ea 


0460 


B 


e>1B94 


Fecth variable name and go on 


18ER 


1B94 






ISEC 


06R0 


BL 


e>1F7E 


Fetch byte from VDP or GROM 


18EE 


1F7E 






ISFB 


0977 


SRL 


7,7 


Old Basic byte 


18F2 


0227 


RI 


7, >FE92 




iaF4 


FE92 








iaF6 


0287 


CI 


7, >004C 


Bigger >26 (>DD) 


laFa 


004C 






laFR 


1B28 


JH 


>194C 


Error 


laFC 


C1E7 


MOV 


@>1CE2(7), 


,7 Fetch jump 


18FE 


1CE2 






13B0 


152B 


JGT 


)1958 


Positive, then jump 


1902 


.0247 


RNDI 


7, >7FFF 


Correct GROM address 


1304 


7FFF 








1906 


R1E0 


R 


§>8328,7 


Rdd NUD table address (>4E84 at master console) 


1908 


8328 








130R 


06R0 


BL 


@>1E8C 


Set substack pointer and actual Basic token 


190C 


1E8C 






130E 


DB47 


MOVB 


7,§>0402(13) Write GROM address 


1910 


0402 








1912 


DB60 


MOVB 


@>a3EF,e>0402(13) 


1914 


83EF 








1916 


0402 
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iqi A 
13 lO 




D 
□ 


B f luluoH 


GPL interpreter with reset condition bit 


191R 


00BR 














n 

D 


6 ? 1 r 


End with error 




191E 


1F22 










GPL CONT 










1320 


06R0 


BL 


@>1E7R 


Substack pointer in R9, Basic 


byte in R8 


1922 


1E7R 










1324 


C199 


Moy 


1*9,6 


Fetch address from substack 




1926 


1508 


J6T 


>1938 


Not negative, then jump 




1328 


0246 


RNDI 


6, >7FFF 


GROM address clear 1st bit 




192R 


7FFF 










132C 


0B46 


MOVE 


6,§>0402(13) and write 




192E 


0402 










1330 


DB60 


MOVE 


§>83ED, 6)0402(13) 




1932 


83ED 










1934 


0402 










193B 


C18D 


MOV 


13,6 






1938 


9216 


CB 


*6,8 


Compare byte in GROM with old 


byte 


193R 


1455 


JHE 


>19E6 






193C 


0288 


CI 


8.>B800 


&? 




193E 


B800 










1940 


130C 


JEQ 


>195R 






1942 


0978 


5RL 


8,7 






1944 


0228 


fli 


8,>FE84 


->BE*2 




1946 


FE84 










1948 


0288 


CI 


8, >0010 


Basic byte >BE->C5 




194P 


0010 








194C 


1B6F 


JH 


>1R2C 


Jump 




194E 


C1E8 


MOV 


e>1D2E(a),7 Fetch routine 




1950 


1D2E 










1952 


04C8 


CLR 


8 






1954 


06R0 


BL 


e>1F7E 


Set substack pointer and actual Basic byte 


1956 


1F7E 










1958 


0457 


B 


a? 






195R 


0200 


LI 


0, >0008 


GPL routine & 




195C 


0008 










195E 


1068 


JMP 


>1R30 


Execute 




1960 


0649 


DECT 


9 


New substack pointer 




1962 


0227 


RI 


7,) 8001 


Hddress +1 




1964 


8001 










1966 


10D1 


JMP 


>190R 


Write GROM address and to GPL 


interpreter 


GPL EXEC 










1968 


06R0 


BL 


e>1E7R 


Substack pointer in R9, Basic 


byte in R8 


196R 


1E7R 






196C 


04E0 


CLR 


e>8322 


Error code 




196E 


8322 










1970 


C020 


MOV 


e>8344,0 


Basic flag in R0 




1972 


8344 








1974 


1317 


JEQ 


>19R4 


Nothing, then jump 




1976 


0300 


LIMI 


>0003 


Enable interrupt 




1978 


0003 










197R 


0300 


LIMI 


>0000 


Disable 




197C 


0000 










197E 


04E0 


CLR 


§>83D6 


LLear screen time out counter 




1980 


83D6 










1982 


06^0 


BL 


§>0020 


Clear key scan 




1984 


0020 








1986 


134F 


JEQ 


>1R26 


End 




1988 


D020 


MOVE 


§>a388,0 


Error flag bit 




198R 


8388 








196C 


0R30 


SLR 


0,3 


Check 2nd bit 
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ISSE 


1160 


JLT 


}1R50 




19S0 


C&20 


MOV 


e>832E,e>832C Line pointer on texi 


1992 


832E 








1994 


832C 








1996 


0Bn0 


BL 


§>1F7E 


Fetch 1 byte from VDP or 


1998 


1F7E 








19SP 


1142 


JLT 


>1R20 




193C 


D808 


MOVB 


8,§)832C 


Fetch line address 


193E 


832C 








19R0 


D81R 


MOVE *H0,§>832D 


19fl2 


832D 








13fl4 


05C3 


I NET 


9 


Increase stack pointer 


1Sfl6 


C660 


MOV 


@>18CB,^♦^ 


Value>19CR on substack 


13R8 


18CB 








19Rn 


0BR0 


BL 


§>1F7E 


Fetch 1st byte from line 


1SRC 


1F7E 






19RE 


1102 


JLT 


>19B4 


<0? 






B 


@>1BER 




19B2 


1BER 








19B4 


C1C8 


MOV 


8,7 


Basic token in R7 


19BB 


06R0 




e>1FR0 


Next byte of the line 


19Ba 


1FH0 






19Bfl 


0377 


5RL 


7,7 


1st token in R7 Lbyte *2 


19BC 


0227 


RI 


7, > FEBC 




19BE 


FEBC 








13C0 


1535 


J5T 


>1fl2C 


Bigger )fl2 ? 


19C2 


C1E7 


MOV 


§>1CE0(7),7 


19C4 


1CE0 












JLT 


>1902 


Smaller 0, then GROM addi 


19C8 


0457 


B 


¥:7 


Execute routine 


13Cfl 


0065 


DRTR 


>00B5 


Dec 101 


13CC 


C020 


MOV 


§>8344,0 


Basic run flag and Basic 


13CE 


8344 








19D0 


1331 


JEQ 


)1fl34 


No, execute direct 


19D2 


6820 


5 


§>1D4E,§>832E Next Line (-4) 


19D4 


1D4E 








19DB 


a32E 








1908 


8820 


C 


@>832E,e>8330 Smaller then lowest 


19Dfl 


832E 








19DC 


8330 












JHE 


>1976 


Execute in the limit 


13E0 


1029 


JMP 


>1R34 


End program 


13E2 


D208 


MOVB 8,8 




13E4 


1623 


JNE 


>1fl2C 




1SE6 


CI 09 


MOV 


it9,7 


Data from substack 


13E8 


11BB 


JLT 


>19B0 


Negative , then jump 


13Efl 


0649 


DECT 


9 


Decrease stack pointer 


13EC 


0467 


B 


§>0002(7} 


and execute routine (va 


19EE 


0002 









19F0 


06R0 


BL 


§>1E7R 


Substack pointer in R3, actual Basic byte in R8 


19F2 


1E7n 








19F4 


10F8 


JMP 


>13E6 


Go on 


19FB 


C06B 


MOV 


11,2 


Save return 


19F8 


06R0 


BL 


e>187C 


1 Byte from VDP in RI 


13FR 


187C 








13FC 


834fl 


DRTR 


>834R 


Pointer to address 


13FE 


C101 


MOV 


1,4 




1R00 


0fl21 


SLR 


1,2 


Is 2nd bit set? 


1R02 


1814 


JOC 


>1fl2C 


Yes, error 
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1R04 


C044 


MOV 


4 , 1 


Rgain original byte 


1R06 


0452 


B 




Return 


1R08 


0000 








1fl0fl 


0000 








1R0C 


0000 








1R0E 


0000 








1fl10 


0000 








ini2 


0000 








1014 


0000 








1R1B 


0000 








1fl18 


0000 








IHIR 


0000 








1R1C 


0000 








IfllE 


0000 








1R20 


□020 


MOVB 


e>8389.0 


Fetch GROM flag 


1R22 


8389 








1fl24 


16BB 


JNE 


>193C 


Jump, if in GROM 


1fl2B 


0200 


LI 


0, >0001 


GPL routine break 


1R28 


0001 








1R2fl 


1002 


JMP 


>1H30 




1R2C 


0200 


LI 


0, >0003 


GPL error routine, error code 


1R2E 


0003 








1fl30 


Ca00 


MOV 


0,@>8322 


Set GPL routine on vector 


1R32 


8322 








1R34 


C1E0 


Moy 


e>8326,7 


Fetch return address Basic 


1R36 


8326 








1R38 


0460 


B 


@>190R 


Set stack pointer, write Basic return address 


1R3R 


130fl 






Return GPL interpreter 


1R3C 


0549 


DECT 


9 


Decrease substack pointer 


1R3E 


10FH 


JMP 


>1R34 


Return Basic 


1R40 


C820 


MOV 


e>1D4E,§ 


>8322 GPL routine memory full? 


1fl42 


1D4E 








1fl44 


8322 








1R46 


020B 


LI 


11, >1922 


Trick return >1922 


1R48 


1922 








1H4fl 


05C9 


INCT 


9 


Increase stack pointer 


1fl4C 


C64B 


MOV 


11 ,*9 


Return address on substack 


1fl4E 


10F2 


JMP 


>1fl34 


Goto Basic 


1R50 


C820 


MOV 


§> 0072, §> 8322 GPL routine TRRCE 


1R52 


0072 








1R54 


8322 








1R56 


020B 


LI 


11, >198E 


Return for substack, go on in Basic interpreter 


1R58 


198E 






1R5R 


10F7 


JMP 


>1R4R 


Go on 


1R5C 


C820 


MOV 


§>832C,e>8356 Text pointer 


1R5E 


832C 








1R60 


8356 








1R62 


0BC8 


SWPB 


8 




1R64 


R808 


R 


8,§)832C 


Text pointer+R8 


1R66 


832C 






IRSa 


04E0 


CLR 


§>8354 




1R6R 


8354 








1RBC 


0BR0 


BL 


§>1E30 


Set stack pointer 


1R6E 


1E90 






1fl70 


06R0 


BL 


§>11R2 


C5N 


1R72 


11H2 








1fl74 


06R0 


BL 


§>1E7R 


Fetch substack and Basic byte in R8 


1fl76 


1E7R 






1R78 


8820 


C 


e>835B,§>832C Text pointer in Basic line 


1R7R 


8356 
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1fl7C 


a32C 








1P7E 


16D6 


JNE 


>1R2C 




1P80 


06R0 


BL 


§>1F7E 




1R82 


1F7E 






1R64 


D020 


MDVB 


e>8354,0 


Test error 


1Ra6 


8354 








1R88 


16DB 


JNE 


>1R40 




iR6n 


0460 


B 


§>1924 


CONT 


1fl8C 


1924 








1R8E 


04C3 


CLR 


3 




1R30 


1017 


JMP 


>.1flC0 




1R92 


06R0 


BL 


@>18DR 


PRR5E with different return 


1fl94 


laoR 








IflSB 


B3B6 


DRTR 


>B366 




1RS8 


0BR0 


BL 


§)1E70 


String tag? 


1R9R 


1E70 






1R3C 


04E0 


CLR 


e>8354 




1fl3E 


8354 








1RR0 


06R0 


BL 


e>1268 


CFI 


1Rfl2 


12B8 








1RR4 


D020 


MQVB 


§>8354,0 


Error? 


1RR6 


8354 






IRRa 


1603 


JNE 


>1RB0 




1RRR 


C0E0 


MOV 


e>634R,3 




IRflC 


834R 






1RRE 


1503 


J6T 


>1RB6 




1RB0 


0200 


LI 


0, >0203 


Error code 


1RB2 


0203 








1RB4 


10BD 


JMP 


>1R30 




1RB6 


0288 


CI 


8, >a500 


Token 60 


1RBa 


8500 






1RBR 


1608 


JNE 


>1RCC 




1RBC 


06R0 


BL 


e>1F7E 




1R6E 


1F7E 








1RC0 


0288 


CI 


8, >B100 


Token ELSE 


1RC2 


B10C^ 








1RC4 


1353 


JEQ 


>1B6C 




1RC6 


0288 


CI 


a, >R100 


Token SUB 


IRCa 


R100 








IRCfl 


1005 


JMP 


)1RDB 




1RCC 


0288 


CI 


8, >a600 


Token GOTO 


1RCE 


8600 






1RD0 


134D 


JEQ 


>1B6C 




1RD2 


0288 


CI 


a, >8700 


Token GOSUB 


1RD4 


8700 






1RDB 


16Rfl 


JNE 


>1R2C 




1RDa 


0BR0 


BL 


e>1F7E 


Fetch byte 


1RDR 


1F7E 






1RDC 


1002 


JMP 


>1RE2 


Execute 


1RDE 


10R6 


JMP 


J1R2C 


Error 


1RE0 


04C3 


CLR 


3 




1RE2 


C820 


MOV 


§>a32E,§ 


>a34R Painter to actual line 


1RE4 


a32E 








IRES 


834R 








1RE8 


D820 


MOVB 


e>1H97,§>a34C >66 


1RER 


1fl97 








1REC 


834C 








1REE 


C803 


MOV 


3,6)8350 


Save R3 


1RF0 


8350 






1RF2 


06R0 


BL 


§>1ERR 


VPUSH6 


1RF4 


lERfl 








1RFB 


C0E0 


MOV 


e>8350,3 


Old R3 


1RF8 


8350 
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1HF0 


1001 


JMP 


> IflFE 




IflFC 


04C3 


CLR 


3 




IflFE 


0288 


CI 


8, >C900 


Token line number? 


1B00 


C300 








1B02 


16ED 


JNE 


>1RDE 


E r ro r 


1B04 


06n0 


BL 


§>1F7E 


Fetch byte 


1B06 


1F7E 






1806 


D008 


MOVB 


8,0 


Save R8 


1B0P 


06n0 


BL 


@> 1FR0 


2nd byte and INC text pointer 


1B0C 


1Ffl0 






1B0E 


0603 


DEC 


3 




1B10 


1528 


J5T 


> 1B62 


R3 >0 


1B12 


C060 


MOV 


§>8330, 1 


Start Line table 


1B14 


8330 








1B16 


O0R0 


MOVB 


§>8389,2 


6R0M flag 


IBIS 


8383 






1B1R 


1307 


JEQ 


>1B2R 




1B1C 


DB41 


MOVB 


1,§>0402(13) Write 6RQM address 


1B1E 


0402 








1B20 


C0aD 


MOV 


13,2 




1B22 


DB60 


MOVB 


e>83E3,e>0402(13) 


1B24 


83E3 








1B2B 


0402 








1B28 


1005 


JMP 


>1B34 




1B2R 


D7E0 


MOVB 


e>83E3,*15 Write VDP address 


1B2C 


83E3 








1B2E 


0202 


LI 






1B30 


8800 








1B32 


D7C1 


MOVB 


1 , " lO 




1B34 


8601 


c 


1,6' OJJ^ 


cnci line list 


1B36 


8332 








1B38 


140B 


JHE 






1B3P 


3012 


CB 




Dearcnea line r 


1B3C 


1607 


JNE 


>1B4C 




1B3E 


9212 


CB 


*2,8 




1B40 


130R 


JEQ 


>1B56 




1B42 


D0D2 


MOVB 


*2,3 


Jump over line address 


1B44 


0221 


RI 






1B46 


0004 








1B48 


D0D2 


MOVB 


it2,3 




1B4R 


10F4 


JMP 


>1B34 


Rnd go on 


1B4C 


D0D2 


MOVB 


if2,3 


Jump over one bit 


1B4E 


10F3 


JMP 


>1B42 


1B50 


0200 


LI 


0, >0303 


Error 


1B52 


0303 








1B54 


10fiF 


JMP 


>1RB4 




1B56 


05C1 


INCT 


1 


Found line 


1B58 


C801 


MOV 


1 ,§>832E 


New actual line pointer 


1B5n 


832E 






1B5C 


0649 


DECT 


3 


Decrease stack 


1B5E 


0460 


B 


e>1976 


EXEC 


1660 


1976 








1B62 


06R0 


BL 


e)1F7E 


Fetch one byte 


1B64 


1F7E 






1B66 


0288 


CI 


6, >B300 


Token , 


1B68 


B300 








1B6n 


16fl2 


JNE 


>1RB0 


Er ror 


1B6C 


06R0 


BL 


§>1F7E 


Next byte 


1B6E 


1F7E 






1B70 


10C6 


JMP 


>1RFE 


Search 


1B72 


10B5 


JMP 


>1RDE 


Error 


1B74 


06R0 


BL 


§>1F2E 


VPOP 


1B76 


1F2E 
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^B76 


9820 


CB 


e>1037,e>834C >6B? 605UB stack entry? 


1B7fl 


1R97 








1B7C 


834C 








1B7E 


16FR 


JNE 


>1874 


Go on 


1B80 


D208 


MOVB 


8,8 




1882 


16F7 


JNE 


>1B72 


Error 


1B84 


C820 


MOU 


e>8340,e>832E New actual line address 


1886 


a34R 








1688 


a32E 








1B8P 


0460 


8 


§>13E6 


Oddress of substack and execute routine 


1B8C 


19E6 








1B8E 


0200 


LI 


, > 0006 


GPL routine DEF 


1BS0 


0006 






1B92 


1030 


JMP 


>10B4 


Error 


1B34 


06R0 


BL 


e>176fl 


XML >13 fetch name 


1B36 


1760 








1B98 


06R0 


BL 


@>ia7C 


One byte from VDP in R1 


1B9n 


ia7C 






1B3C 


8340 


DOTO 


>a340 




1BSE 


0011 


SLO 


1,1 


User defined function? 


1BR0 


11F6 


JLT 


>iBaE 


Yes, execute GPL routine 


1802 


0600 


BL 


§>1670 


XML >14 


1Bfl4 


1670 








1BP6 


9820 


CB 


e>834C,e>13CB string tag? 


1BR6 


834C 








IBRfl 


13CB 








1BRC 


1302 


JEQ 


>1882 




1BRE 


06R0 


BL 


6)1830 


fl By^ss from UDP ov6r stsck entry 


1BB0 


1830 






1882 


0460 


B 


e>1324 


CONT 


1884 


1324 








1886 


0600 


BL 


a \ t Ana 


rHi\DC WltnOUI uiaUII aOOreSS 


1888 


1800 








1BBR 


8367 


DOTO 


/ DJO/ 




1BBC 


0600 


BL 


e>iE70 


String tdg? 


1B8E 


1E70 






1BC0 


04C3 


CLR 


3 




18C2 


0288 


CI 


a, >B000 


Token THEN 


1BC4 


8000 








1BCB 


16D5 


JNE 


>1B72 


Error 


1BC8 


0520 


NEG 


e>a340 




IBCfl 


8340 








1BCC 


16CF 


JNE 


>1B6C 




1BCE 


0600 


BL 


e>1F7E 


Fetch byte 


1BD0 


1F7E 






18D2 


0288 


CI 


8, >CS00 


Token line number 


1BD4 


C300 








18D6 


16CD 


JNE 


)1872 


Error 


18D8 


05E0 


INCT 


e>832C 


Text pointer 


1B0R 


832C 






1BDC 


0600 


BL 


§>1F7E 


Fetch byte 


1BDE 


1F7E 






1BE0 


0288 


CI 


8, >8100 


Token ELSE 


1BE2 


8100 








18E4 


13C3 


JEQ 


>1B6C 


Go on 


18E6 


0460 


8 


§>19E2 


Oddress from substack and execute 


18E8 


13E2 








IBEfl 


0600 


BL 


e)1760 


XML >13 Fetch name 


1BEC 


1760 








1BEE 


0600 


BL 


§>1670 


XML >14 Built stack entry on FflC 


1BF0 


1670 








1BF2 


0288 


CI 


a, >BE00 


Token = 
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1BF4 


BE00 








1BF6 


16BD 


JNE 


>1B72 


Error 


1BF8 


0BR0 


BL 


§>1F7E 


Fetch byte 


1BFR 


1F7E 








1BFC 


06n0 


BL 


§>1E9C 


UPU5H6 with changed return 


1BFE 


1E3C 






1C00 


8D30 


DRTR 


>8O30 




1C02 


06n0 


BL 


§>1788 


XML >15 Coordinate value 


1C04 


1788 








1C0B 


04B0 


B 


e>1924 


CONT 


1C08 


1924 








1C0R 


0000 








1C0C 


0000 








1C0E 


0000 








1C10 


0000 








1C12 


0000 








1C14 


06R0 


BL 


e>17Bfl 


XML >13 Fetch name and search 


1C16 


17BR 








1C18 


C120 


MOV 


6>834M , 4 




1C1R 


834R 








1C1C 


0BR0 


BL 


§>1F2E 


VPOP 


1C1E 


1F2E 








1C20 


3820 


CB 


§>a34C,§>1BBB >67? For next entry on stack? 


1C22 


834C 








1C24 


1BBB 








1C26 


1302 


JEQ 


>1C2C 




1C28 


04B0 


B 


@>1F78 


Error 


1C2R 


1F78 








1C2C 


8804 


c 


4,e>834R 




1C2E 


834R 








1C30 


1304 


JEQ 


>1C3n 




1C32 


6820 


5 


e>1C68,e>836E >0010 


1C34 


1CB8 








1C36 


836E 








1C38 


10F1 


JMP 


>1C1C 




1C3fl 


05R0 


BL 


§>1830 


8 Bytes from VDP over stack entry 


1C3C 


1830 






1C3E 


06R0 


BL 


§>1E8C 


Set stack pointer and Basic byte 


1C40 


1E8C 






1C42 


06R0 


BL 


§>0D84 


5RDD 


1C44 


0D84 








1C46 


06R0 


BL 


§>1E7fl 


Fetch stack pointer and Basic byte 


1C48 


1E7fl 






1C4fl 


R820 


n 


e>1CB8,@>83BE >0010 


1C4C 


1C68 








1C4E 


83BE 








1C50 


06R0 


BL 


e>1788 


XML >15 Rssign value 


1C52 


1788 






1C54 


B820 


5 


e>1ERC,e>836E >0008 


1C5B 


1ERC 








1C58 


aSBE 








1C5H 


06R0 


BL 


§>0D42 


SCOMP 


1C5C 


0D42 








1C5E 


02C4 


STST 


4 




1CB0 


130R 


JEQ 


>1C76 




1C62 


C0E0 


MOV 


§>83BE,3 




1CB4 


836E 








1CB6 


0223 


RI 


3, >0010 




1CB8 


0010 






1C6R 


06R0 


BL 


e>1860 


Read byte 


1CBC 


1860 






1C6E 


D041 


MOVB 


1.1 




1C70 


1112 


JLT 


>1C9B 
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1C72 0R14 SLfl 4,1 

1C74 150E J6T >1C92 

1C76 0820 R e>1F0E,e>836E >0018 

1C78 1F0E 

1C7R 836E 

1C7C C0E0 MOV e>836E,3 

1C7E 836E 

1C80 0223 RI 3, > 0006 

1C82 0006 

1C84 06R0 BL @>ia80 Read byte 

1C86 1880 

1C88 D820 MOVB §>8a00,§>832F Rnother byte in Lbyte actual line pointer 

1G8fl 8800 

1C8C 832F 

1C8E D801 MOVB 1,e>832E Complete line pointer 

1C90 832E 

1C32 0460 B §>1924 CONT 

1C94 1924 

1C96 0R14 SLR 4,1 Negative? 

1C98 15EE JGT >1C76 Go on 

ICSfl 10FB JMP >1C92 Stop and end 

Jump table for EXEC 

1C9C 1R2C 

1C9E 1R2C ELSE 

1CR0 1H2C : : 

1CR2 1R2C ! 

1CR4 1BB6 IF 

1CH6 1fl8E 60 

1CR8 IRFC GOTO 

1CRR 1RE0 GOSUB 

1CRC 1B74 RETURN 

1CRE 19E6 DEF 

1CB0 19E6 DIM 

1CB2 1R3C END 

1CB4 8000 FOR 

1CB6 1BER LET 

1CB8 8002 BRERK 

1CBR 8004 UNBRERK 

1CBC 8006 TRRCE 

1CBE 8008 UNTRRCE 

1CC0 8016 INPUT 

1CC2 19E6 DRTR 

1CC4 8012 RESTORE 

1CC6 8014 RRNOOMIZE 

1CC8 1C14 NEXT 

1CCH 800R RERD 

1CCC 1fl3C STOP 

1CCE 803E DELETE 

1CD0 19E6 REM 

1CD2 1R92 ON 

1CD4 800C PRINT 

1CD6 800E CRLL 

1CD8 19E6 OPTION 

1CDR 8018 OPEN 

1CDC 801 R CLOSt 

1CDE 1R2C SUB 

1CE0 803C DISPLAY 



Jump table 
1CE2 801C 
1CE4 1fl2C 
1CE6 1R2C 
1CE8 1H2C 
1CER 1R2C 



for PRRSE 
( 
& 

OR 
RND 
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1CEC 


1R2C 


XQR 


1CEE 


1R2C 


NOT 


1CF0 


1R2C 




1CF2 


1R2C 


< 


1CF4 


1fl2C 


> 


1CF6 


801E 


■f 


1CF8 


8020 




1CFR 


1fl2C 




1CFC 


1R2C 


1 


1CFE 


1R2C 




1D00 


1R2C 




1D02 


8010 


STRING IN " 


1D04 


1R5C 


STRING 


1D0B 


1fl2C 


Line number 


1D0fl 


804R 


EOF 


1D0R 


8022 


RBS 


1D0C 


8024 


RTN 


1D0E 


8026 


COS 


1D10 


8028 


EXP 


1D12 


802R 


INT 


1D14 


802C 


LOG 


1D16 


802E 


5GN 


1D18 


8030 


SIN 


1D1R 


8032 


SQR 


1D1C 


8034 


TRN 


1D1E 


8036 


LEN 


1D20 


8038 


CHR$ 


1D22 


803R 


RNO 


1D24 


8040 


5EG$ 


1D26 


8046 


POS 


1D28 


8044 


VRL 


1D2n 


8042 


STR$ 


1D2C 


8048 


RSC 


Jufnp 


table 


CONT 


1D2E 


1D5C 




1D30 


1D3E 


< 


1D32 


1D4C 


> 


1D34 


1DEC 




1D38 


1E18 




1D38 


1E24 




1D3R 


iE30 


/ 


1D3C 


1E3C 





1D3E 


0202 


LI 


2, >0002 


Flag in R2 0:= 


1D40 


0002 






1:<> 


1D42 


0288 


CI 


8,>C000 


2:< 


1D44 


C000 






3:< = 


1D46 


1604 


JNE 


>1D50 


4: ) 


1D48 


0642 


DECT 


2 


5: > = 


1D4R 


1005 


JMP 


>1D56 




1D4C 


0202 


LI 


2, >0004 




1D4E 


0004 








1D50 


0288 


CI 


8, >BE00 




1D52 


eE00 








1D54 


1605 


JNE 


>1D60 




1D5B 


0BR0 


BL 


§>1F7E 




1D58 


1F7E 








1D5R 


1001 


JMP 


>1D5E 




1D5C 


0702 


SETO 


2 




1D5E 


0582 


INC 


2 




1D60 


05C9 


INCT 


9 





1D62 C642 MOV 2.*9 Flag on substack 

1D64 06R0 BL e>1E9C Return on substack and VPUSHG 

1DB6 1E3C 
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1D8S 


C000 


OOTO 


>C000 


1D6fl 


C119 


MOV 


1*9,4 


1D6C 






g 


1D6E 


0324 


MOVB 


@> 1008(4) 


1D70 


1008 




1D72 


088C 


5R0 


12,8 


1D74 


0600 


BL 


e>1E40 


1D76 


1E40 






1D7fl 


1310 


JEQ 


>10flE 


1070 


0600 


BL 


§>0O42 


1D7C 


0042 






1D7E 


046C 


B 


§>1082(12 


1D6B 


1082 






Compare result in FRC: 


1082 


1504 


JGT 


>1D8C 


1084 


1303 


JEQ 


>108C 


1086 


04C4 


CLR 


4 


1088 


1003 


JMP 


>1O90 


1080 


13F0 


JEQ 


>1086 


108C 


0204 


LI 


4 , > BFFF 


108E 


BFFF 




1OS0 


0203 


LI 


3, >8340 


1092 


8340 




1094 


CCC4 


MOV 


4,*3+ 


1096 


04F3 


CLR 


H3 + 


1098 


04F3 


CLR 


^3+ 


109R 


04F3 


CLR 


^3+ 


logc 


1039 


JMP 


>1E10 


109E 


13F6 


JEQ 


>1D8C 


1OR0 


11F5 


JLI 


>iDac 


10P2 


10F1 


JMP 


>1085 


1004 


15F3 


JGT 


>108C 


1DRB 


10EF 


JMP 


>1086 


Jump 








1008 


0208 


OOTO 


>0208 


IDfifl 


1E1C 


OOTO 


» iFir 

/ IC l(_ 


1DRC 


2200 


OOTO 




Compare string: 




1DRE 


C2O0 


MOV 




1OB0 


834E 






10B2 


01 E0 


MOVE 


^ / iff 


10B4 


8351 




10BB 


0600 


BL 




lOBd 


1F2E 






10B0 


C120 


MOV 


C > O JMC , ^ 


10BC 


834E 




10BE 


0100 


MOVB 


B > O J3 1 , D 


1DC0 


8351 




10C2 


0146 


MOVE 


D , D 


10C4 


91C6 


CB 


R 7 


10CB 


1101 


JLT 


>1DC0 


1DC8 


0147 


MOVB 


7,5 


10C0 


0985 


5RL 


5,8 


10CC 


1300 


JEQ 


>1DE8 


10CE 


C0CO 


MOV 


10.3 


1000 


0580 


INC 


10 


1002 


0600 


BL 


§>18&0 


1004 


1880 






1006 


0001 


MOVB 


1,0 


1008 


C0C4 


MOV 


4,3 


1000 


0584 


INC 


4 


100C 


0600 


BL 


§>1880 


100E 


1880 






1OE0 


9001 


CB 


1,0 


1DE2 


16C0 


JNE 


>107E 


10E4 


0605 


DEC 


5 



Token > 
Fetch flag 

,12 Fetch jump 



FRC and stack same type? 

String jump 
5C0MP 

} Jump 



< ) 



End 
< = 
< 

> 



Rddress first string 

Length 

VPOP 

Oddress second string 
Length 



Read byte from VDP 

Read byte from VDP 
Not equal, end 
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1DE6 


15F3 


J5T 


> 1DCE 




1DE8 


91CB 


CB 


6,7 




1DER 


10C9 


JMP 


> 1D7E 


End 


1DEC 


06R0 


BL 


§>1E9C 


VPU5H6 


IDEE 


1E3C 








1DF0 


C200 


DHTR 


>C200 


Token 


1DF2 


0202 


l_I 


2 , >0D84 


5RDD 


1DF4 


0D84 








1DFB 


04E0 


CLR 


@ > 8354 




1DF8 


8354 








1DFR 


0BR0 


BL 


@> 1E4H 


1 ai lu a La^^ scaiiic vjr^c* 


1DFC 


1E4R 








1DFE 


1335 


JEQ 


> 1E6C 


^ f r 1 nn 1 1 rmn 


1E00 


06R0 


BL 


§> 1E8C 






1E8C 








1E04 


0692 


BL 




Fvfsnitp aHHi 1 nn 


1E06 


06R0 


BL 


§>1E7R 




1E06 


1E7R 








1E0R 


D0R0 


MDVB 


§>8354,2 




1E0C 


8354 








1E0E 


1602 


JNE 


)1E14 


Error 


1E10 


0460 


B 


§>1924 


CONT 


1E12 


1924 








1E14 


0460 


B 


§>1R40 


Error and back to Basic 


1E1B 


1R40 








1E18 


06R0 


BL 


@ > 1 E3C 


I. J m 1 c h n 


1E1R 


1E9C 






1E1C 


C200 


DHTR 


>C200 


Token 


1E1E 


0202 


LI 


2 >0D74 


55UB 


1E20 


0D74 








1E22 


10E9 


JMP 


>1DF6 




1E24 


0BR0 


BL 


§>1E9C 


ypushg 


1E2B 


1E3C 






1E26 


C400 


DHTR 


>C400 


Token / 


1E2fl 


0202 


l_I 


2 , > 0E&C 


SMUL 


1E2C 


0E8C 








1E2E 




JMP 


> inPR 




1E30 


0BR0 


BL 


@>1E9C 




1E32 


1E3C 








1E34 


C400 


DHTR 


>C400 


To Ic GD / 


1E36 


0202 


LI 


2, >0FF8 


SDIV 


1E3a 


0FF8 








IF^Q 


IHDD 

1 KlUw 


JMP 


v-inpc 




1E3C 


06R0 


BL 


@>1ESC 




1E3E 


1ESC 








1E40 


C500 


DHTR 


>C500 


Token ^ 


1E42 


0200 


LI 




RPI rnii^infa inwnliifinn 


1E44 


0005 








1E46 


0460 


B 


§>1H30 




1E48 


1fl30 








FRC and stack entry same 


lype f 


1E4fl 


C1R0 


MOV 


e>a36E,6 


Fcstrh UnP arirlriacc f rnm FC 


1E4C 


836E 








1E4t 


05CB 


INCT 


6 


♦2 


1E50 


D7E0 


MOVB §>83ED,*15 Write address 


1ES2 


83ED 








1E54 


1000 


JMP 


>1E56 




1E5B 


D7CB 


MOVB 6,»15 




1E58 


1000 


JMP 


>1E5H 




1E5fl 


9820 


CB 


e>8800,e>19CB >65 String tag? 


1E5C 


8800 








1E5E 


13CB 








1E60 


1007 


JL 


>1E70 


< Jump 
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1E62 


1B04 


JH 


>1E6C > Error 


1E64 


9820 


CB 


e>834C,§>13CB String tag? 


1E66 


834C 




1EBB 


1SCB 






1E6R 


1306 


JEQ 


>1E78 Return 






o 

a 


ss? i/dm jbi error 


1E6E 


1764 






1E70 


9820 


CB 


§>a34C,e>19CB string tag? 


1E72 


834C 




1E74 


13CB 






1E7B 


1 HFM 




/ 1 CDi. error 


1E78 


045B 


B 


*11 Return 


Substack pointer 


in R9 and actual Basic byte in R8 


1E7n 


04C8 


CLR 


a 


1E7C 


D220 


MOVB 


e>8342,8 Fetch Basic byte 


1E7E 


8342 




1Ea0 


0260 


MOVB 


§>a373,3 Fetch substack pointer 


lESZ 


8373 




1E84 


0989 


5RL 


9,8 


1E86 


0229 


ni 


9,>8300 Complete address substack 


1E88 


8300 




1E8R 


045B 


B 


^*11 Return 



Set substack pointer and Basic byte: 
1E8C D808 MOVB 8,§>a342 Set Basic byte 



1E8E 8342 

1E90 0229 

1E92 7D00 

1E94 D820 

1E96 a3F3 

1E9a 8373 

1E9n 045B 



RI 9,>7D00 

MOVB §>83F3,e>a373 Set substack pointer 



B 



Return 



VPU5HG with return on substack and back over GPL CONT 
For DRTR comparison 



1E9C 05C9 INCT 9 
1E9E 0289 CI 9,>83Bfl 
1ER0 a3BR 



Substack to big? 



1ER2 


1B3F 


JH 


>1F22 


Error 


1ER4 


C64B 


MOV 


11,1*9 


Return on substack 


lERB 


020B 


LI 


11, >18E4 


new return address 


1ER8 


iaE4 








VPUSHG (XML 


>17) : 






1ERR 


0200 


LI 


0, >000a 




lEflC 


0008 








lERE 


R800 


n 


0,e>836E 


Rdd a to value stack 


1EB0 


836E 








1EB2 


C060 


MOV 


e>a38E,i 


Fetch pointer in RI 


1EB4 


836E 




1EB6 


D7E0 


MOVB §>83E3,it15 Write address 


1EB8 


83E3 








lEBfl 


0261 


□RI 


1 , >4000 


For writing 


1EBC 


4000 








1EBE 


D7C1 


MOVB 


1.*15 




1EC0 


0201 


H 


1 , >834R 


Write data 


1EC2 


834R 






1EC4 


D831 


MOVB *1+,§>8C00 


1ECB 


8C00 








1EC8 


0600 


DEC 





8 Bytes 


lECfl 


15FC 


JGT 


)1EC4 


1ECC 


C00B 


MOV 


11,0 


Save return 


1ECE 


9820 


CB 


e)834C,§>19CB String tag? 


1ED0 


a34C 
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1 CUci 


iQrR 

1 31.0 








1 tU'4 


1C(7P 


IMP 


} icr^ 




ICUt3 


U IHcl 


nUv 


B > O Joe , a 


value stack pointer in tio 




A'^RF 








n99R 
lU^C^D 


QT 


Off ILJIUKi*! 


+ 4 


ipnr 


lOlOlOH 








iFriF 

1 L.IJU 


CIuDIlI 


MflU 

1 lUV 


O ) A'^4Q 1 
^ / o*J*tri / 1 




1FF17I 
1 CCIu 


A'^^Q 
0*J*»H 








IFF!? 


U^O 1 




If/ VwJ 1 L_ 


^Lrxil^ CA|Ji csaXUII* 


1EE4 


001 C 






1FFR 

1 CCD 


1 DIuD 


INF 


/ 1 cr ^ 




1FFA 


r<3IRDI 


Mfll) 


c / OuHC f 1 


rointer to string. 


IFFQ 


A^^F 






IFFr 

1 eel- 


1 JlKi^ 


tpn 


/ 1 Cr ^ 




"IFFF 


tlDHIu 


Rl 


iti > 1 ALID 
/ 1 OHH 


Ml i. • 

Ma r k s t r 1 ng 


1FFI7I 

icru 


1 ACQ 
1 OHH 






IFF*? 


riTIRITI 


nuv 


A \ A'PRF 1 


Value stack pointer 


1 FPzi 


A'^RP 








1FFK 




QT 

H 1 


1 f / ulu llu 


+ 16 


1PFA 
ICr O 


lulCl 1 iLl 








1FFQ 


OOu 1 




1 f 6 / OJ 1 H 


rointer eno 1 ree KHri tor strings 


iPFr 


03 1 H 






1FFP 


1 <coo 


11 P 


^ 1F7R 
/ ll /D 


n Ir Fnri 








9 






L.D*tIuI 


1 lUV 


0,*9 


Return to substack 






MntiR 


§>18F0,@>a323 GPL routine garbage collection 




1 APDI 
1 Or u 








li LiO 










IrlflH 


ciRoa 

luOHu 


Rl 


e>1fi4fi 




IFDir 


1 n^Q 
1 HIH 








1FPIF 
1 riuc 


A 

Kllu lO 


UH 1 H 


>0018 




1F1PI 


1— 111 1 o 


nuv 


*9,0 


Fetch return from substack. 


1P1*? 

ir 1^ 


CIR^Q 
(uOnS 


nprT 

UCI- 1 


9 




1 r 1 *i 


L.Il1DIlI 


Mnu 
nuv 


§;836E,1 


Fetch value stack pointer 


1F1R 


A'^RF 






1F1R 
iv 1 a 


KJ^C i 


rl X 


1 , >0010 


Stack +16 


1F1Q 
ir iH 


lulu lU 










OOlu 1 


r 


1 ,§)831R 


Smaller end free RRM 


1F1F 
Ir IC 


ATIQ 
0<J IH 








1F20 


1220 


JLE 


>1F76 


O.k. 


1 




1 T 


0,>0103 


Error code 


1 r 


\0 llu<3 








li ^D 


ItlDHKj 


Rl 


@)1E7R 


Set substack and Basic byte 


iF2a 


1E7fl 








1F2R 


0460 


B 


e>1R30 


Error over GPL 


iF7r 

IP^L. 


IHJu 








1 ipnp 
ViUr 


r VMi 

V. Aril- 


1 1 A ^ 
> lOJ 








DI'7DI'3 


1 T 


2,>834R 


FflC 




OJIH 








Luola 


nuv 


e)a36E,1 


Fetch pointer value stack 


1 r J't 


A'^RF 






li OO 


OOlU 1 


L. 


1,6)8324 


Basis value stack? 


IP^A 














II F 


>1F78 


Error 


iF^r 

1 r ji_ 


U/ ulu 


MnuR 


e>83E3,lt15 Write VDP address 


tP^p 


AQP'a 

OdCJ 








■^PAa 
ir*ji3 




1-1 


0, >0008 


8 bytes 


1P^^7 

ir*tt 


CI0ICIA 
IcIlolcIO 










MnUR 

nuvD 


1 ,iH5 




li MO 


OOulu 


c 
3 


0,e>836E 


Increase value stack 


1P^A 


A'^RF 








1PZQ 
IrMH 


ULHlu 


rlUvD 


§>8800,it2+ Fetch stack entry 


1F4C 


OOUu 








1F4E 


0600 


DEC 





8 bytes 


1F50 


15FC 


JGT 


>1F4R 
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1F52 


C00B 


MOV 


11 ,0 Save return 




1F54 


9820 


CB 


@>834C e>19CB Strina taa? 




1F56 


834C 






1F58 


19CB 








1F5R 


1B0D 


JNE 


>1F76 No, end 




1F5C 


04C6 


CLR 


6 




1F5E 


C0E0 


MOV 


§>834R,3 




1FB0 


834n 








1FB2 


0283 


CI 


3, >001C String expression? 




1F64 


001 C 






1F6B 


13C0 


JEQ 


>1EE8 Clear 




1F6fl 


06R0 


BL 


@>16&0 Correct string address from 


1F6R 


1880 








1F6C 


D820 


MOVB 


e>8800,e>83E3 2nd byte in R1 


Lbyte 


1FBE 


8800 




1F70 


83E3 








1F72 


C801 


MOV 


1,e>834E on >834E 




1F74 


834E 








1F78 


0450 


B 


»0 Return 




1F7a 


0200 


LI 


0, >0403 Error code 




ir/H 


0403 






1F7C 


10D4 


JMP 


>1F2B Print error 




Fetch 


1 byte from VDP or 6R0M in R8 




1F7E 


D220 


MOVB 


e>8389,a Flag 6R0M 




IFflB 


8389 






IFSZ 


1607 


JNE 


>1F92 Yes, jump 




1F84 


D7E0 


MOVB 


e>832D,if15 Write VDP address 




1F86 


832D 








1F88 


020n 


LI 


10,>8800 VDP read data 




1F8P 


8800 








1F8C 


D7E0 


MOVB 


e>832C,*H5 




IFSE 


832C 






1F30 


1007 


JMP 


>1Ffl0 




1F92 


DB60 


MOVB 


§>832C,e>0402(13) Write bKUM 


address 


1F94 


832C 








1F9B 


0402 








1F98 


DB60 


MOVB 


e>832D,§>0402(13} 




1F9P 


832D 








1F9C 


0402 








1F9E 


C28D 


MOV 


13,10 Grom read data 




1Ffl0 


05R0 


INC 


@>a32C New text pointer 




1Fn2 


632C 






1Fn4 


D21R 


MOVB 


4(10,6 Read byte 




1FRB 


045B 


B 


*11 Return 





Fetch 


8 bytes from VDP stackCflddress 5TRCK=>a36E) 


IFflS 


0205 


LI 


5, >FFF8 a Bytes 


IFRR 


FFFa 




1FRC 


0206 


LI 


6, >835C Rddress RRG 


1FRE 


835C 






1FB0 


D7E0 


MOVB 


@>a36F,*15 Write address 


1FB2 


aSBF 






1FB4 


0207 • 


LI 


7,) 8800 VDPRD 


1FBB 


8800 




1FB8 


D7E0 


MOVB 


@>a36E,*15 


IFBfl 


a36E 




1FBC 


R805 


R 


5,e>836E STRCK -8! 


1FBE 


836E 






1FC0 


DD97 


MOVB 


J(7,x6+ Fetch bytes 


1FC2 


0585 


INC 


5 


1FC4 


16FD 


JNE 


>1FC0 


1FCB 


045B 


B 


4t11 Return 



Read 1 byte from VDP in Ra (Address R6) 
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IFCfl 


D7E0 


MOVE 


§>83ED,if15 Write VDP address 


1FCP 


63ED 








1FCC 


1000 


JMP 


>1FCE 




1FCE 


D7C6 


Moye 


6,*1S 


Complete 


1FD0 


0586 


INC 


6 




1FD2 


D220 


MQVB 


§>6600,6 


Read byte 


1FD4 


6600 






1FDB 


0966 


cat 


8,6 


In Lbyte R8 


IFDS 


045B 


B 




Return 


Read 


1 byte 


f rom 


GROM in 


R6 (Address in R6) 


1FDP 


DB46 


MOVE 


B,§>0402(13) Write 6RQM address 


1FDC 


0402 








1FDE 


DB60 


MOVB 


§>e3ED, 6)0402(13) 


1FE0 


63ED 








1FE2 


0402 








1FE4 


0566 


INC 


6 




1FE6 


D21D 


MOVB 


*13,6 


Read byte 


IFES 


10F6 


JMP 


>1FD6 


In Lbyte R6 and return 


1FER 


0000 








1FEC 


0000 








1FEE 


0000 








1FF0 


0000 








1FF2 


0000 








1FF4 


0000 








1FF6 


0000 








1FF8 


0000 








IFFR 


0000 








1FFC 


2R81 


DRTfl 


>2RB1 


Check sum 


1FFE 




DRTR 


>R38R 
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The Graphics Programming Language 



GPL is a processor related Language for the TI99/4H. Many 
of the GPL commands are almost identical with Assembler 
commands of the IMS 9900, the processor for the TI99/4R 
when using an additional interpreter. The programs of this 
language are located in so called GROM'S. These are 
elements in Memory Map Technique which can be read over 
certain CPU addresses. 

GPL uses essentially the area of the CPU-RAM's >8372 
through >Q3FF. The work space for the GPL interpreter is 
located at 6370. The pointer for the GPL data stack is 
located at >a370 and the pointer subroutine stack is 
located at 8372. The complete address for the stack 
consists of the pointer plus >a300. Usually the ROM area 
>8380 through >83BF is used for the stacks. 

The 6PL-5tatusby te is located at >837C. It is analogous to 
the btatusbyte of the TM5 9900 processor. Following are 
the definitions of the bits; 
Bit : (MSB) High-Bit 
Bit 1 : Greater-Bit 

Bit 2 : Equal-Bit, called Condition-Bit in GPL 
Bit 3 : Carry-Bit 
Bit A : Gverflow-Bit 

The bits number 5 through 7 (L5B) are not used. 

GPL offers a special access to the screen. H buffer for 
the screen is located at >837D. By writing on the buffer 
or reading from it, the screen is automatically accessed. 
The pointers for the row and column are located at >837F 
and )a37E. 

The GRQM listings have been worked out with a GPL 
disassembler. The disassembler prints the source operand 
and the destination operand in reverse order from what has 
been used in the following explanations to the GPL 
commands. Please pay attention when reading the 6R0M 
listing . 
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The GPL Commands 



Op-Code: >00 Description: RTN 
Format type:3 

Description: Takes the highest value of the substacks and 
sets the program counter C new GROti address ). Reset 
condition-bit into status byte. 

GPL-Statusby te : Condition-bit reset 



□p-Code: >01 Description: RTNC 
Format type:3 

Description: Same as RTN but the condition-bit is not 
inf Luenced , 

GPL-Statusby te : Not influenced 



Op -Code: >02 Description: RRND IMM 

Format type: 2 Result: Random number at >8378 

Description: Creates a random number at )8376. The IMM 
shows the maximum. The minimum is always 0. 

GPL-Statusby te : Not influenced 



Op-Code: >03 Description: 5CRN 

Format type:3 Result: Key value at >8375, Joystick 

values at >8376,>8377. 
Description: Scans the keyboard (Modus at >8374) and sets 
the corresponding values at >a375 ( Keys ) and >8376/>8377 
( Joystick ). 

GPL-Statusby te : Condition-bit is set by pushing a new key. 
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□p-Code: >04 Description: BRCK IMM 

Format type:2 Result: VDP-Register 7 = IMM 

Description: Sets the background color of the screen on the 
value of IMM. 

5PL-Statusbyte : Not influenced 



Op-Code: >05 Description: B IMM (2 Bytes) 
Format type:2 

Description: Jump to the absolute address of the IMM-value. 
Program counter takes the value of IMM. 

GPL-5tatusbyte : Condi t ion- Bi t reset 



Op-Code: >06 Description: CRLL IMM (2 Bytes) 
Format type:2 

Description: Jump to a subroutine. The program counter 
takes the value of IMM, the old value of the prograrn 
counter is stored on the substack. 

6PL-5tatusbyte: Condition-Bit reset 



Op-Code: >07 Description: RLL IMM 
Format type:2 

Description: Screen is filled with the IMM value. 
6PL-5tatusbyte: Not changed 
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Op-Code: >08 Description: FMT several operands 

Descrip'tion : Special output command for the screen. The FMT 
Interpreter is independent of the GPL Interpreter. ( See 
ROM-Listing >04DE through >05ni ) 

GPL-Statusbyte : Not influenced 



Op-Code: >03 Description: H 

Format type:3 Resul t :Condition-Bit = H-Bit 

Description: Checks the High-Bit in 5PL-5tatusby te and sets 
the Condition-Bit accordingly. 

GPL-Statusbyte: Condition-Bit is set on value of High-Bit. 



Op-Code: >0O Description: GT 

Format type:3 Resul t :Condi tion-Bi t = GT-Bit 

Description: Checks the Greater-Bit in the GPL-Status Byte 
and sets the Condition-Bit accordingly. 

GPL-Statusbyte: Condition-Bit is set on value of 
Greater-Bit . 

Op-Code: >0B Description: EXIT 
Format type:3 

Description: Software reset, returns to Master Titel Screen 
or Power-up routine. 

GPL-Statusbyte: Not influenced 
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Op-Code : 



>0C 



Description: CARRY 



Format type:3 



Result :Condition-Bit = Carry-Bit 



Description: Tests the Carry-Bit in the GPL-5tatusby te and 
sets the Condition-Bit accordingly. 



6PL-Statusbyte : Condition-Bit is set on value of Carry-Bit. 



□p-Code: )0D Description: OVF 



Description: Tests the Overflow-Bit in the 6PL-5tatusby te 
and sets the Condition-Bit accordingly. 



GPL-5tatusby te : Condition-Bit is set on value of 
Overflow-Bit . 



Op-Code: >0E Description: PRR5E IMM 
Format type:2 

Description: txtension in Basic-Interpreter until a 
caracter appears in Basic which is smaller than the IMM 
value or decimal point. Is mostly used in GPL subprograms 
for Basic to store contents of variable on PRC. 



Op-Code: >0F Description: XML IMM 
Format type:2 

Description: Execution of a assembler routine according to 
the table values of XML. ( See explanation to ROM ) 



GPL-Statusbyte: Depends on assembler routine 



Format- type:3 



Result:Condition-Bit = OVF-Bit 
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Op-Code: >10 Description: CQNT 
Format type:3 

Description: Leads back to the Basic- Interpreter , is used 
at the end of the Basic routines ( not the subprogram ) 
which are located in GROM. 

GPL-Statusby te : Not influenced 



Gp-Code: >11 Description: EXEC 
Format type:3 

Description: Starts with execution of a Basic program. 
GPL-5tatusbyte : Not influenced 



Op-Code: )12 Description: RTNB 
Format type:3 

Description: Leads back to Basic interpreter, 
return-address on substack. 

GPL-Statusby te : Not influenced 



Op-Code: >14->1F Description: XGPL 
>98->9F 
>F0-)F4 
>FC->FF 

Description: For GPL etensions. Contains in the interpreter 
up to now, is starting of a DSR on CRD address >1B00 and 
then the jump B >4020 or b >401C ( Code IF ). 

GPL-Statusbyte: 
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Op-Code: >20->3F Description: MOVE 51, from 52 to D 
Format type:5 

Description: Moves certain numbers of bytes (51) from 
add ress 52 to destination address (D) . The VDP register as 
well as GROM address can also be used as destination 
address . 

GPL-5tatusby te : Not influenced 



Op-Code: >40->5F Description: BR IMM 
Format type:4 

Description: Jumps to a certain address (only possible 
within a GROM) when the condition bit has not been set. 

GPL-5tatusbyte: Condition bit reset 



Dp-Code: >60->7F Description: B5 IMM 
Format type:4 

Description: Jumps to a certain address (only possible in a 
GROM) when condition bit is set. 

GPL-5tatusbyte : Condition-Bit reset 



Op-Code: >80->81 Description: Hfl5 D 

DOBS D 

Format type:5 Result: D = 0B5(D) 

Description: Replaces D by the absolut value of D 

6PL-5tatusbyte : Not influenced 
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Op-Code: )a2->83 Description: NE6 D 

DNEG D 

Format type:5 Result: D = -D 

Description: Replaces destination by the two's complement 
of the destination 



GPL-5tatusby te: Not influenced 



Op-Code: >a4->85 Description: INV D 

_DINV D 

Format type:5 Result: D = D 

Description: Inverts each bit in the destination. 



GPL-5tatusby te : Not influenced 



Op-Code: >86->87 Description: CLR D 

DCLR D 

Format type:5 Result: D = 

Description: Sets destination on 



GPL-Statusby te : Not influenced 



Op-Code: >88-(>83) Description: FETCH D 

incompletely decoded 
Format type:5 

Description: Fetches a byte on which the return address on 
the subroutine-stack points. Puts this byte in the 
destination and increases the return address on the 
substack by 1. 

GPL-5tatusbyte : Not influenced 
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Op-Code: >8fl->aB Description: CR5E D 

DCR5E D 

Format type: 5 

Description: Odds twice the value of D to the Program 
Counter CGROM address) 



6PL-5tatusby te : Condition-Bit reset 



□p-Code: >aC-C>8D) Description: PUSH D 

incompletely decoded 
Format type:5 

Description: Puts byte from D on the GPL data stack and 
increases data stack pointer one point. P pop can be 
realized with ST ^t>837C,S. (specialty in the interpreter) 



6PL-Statusby te : Not influenced 



Op-Code: >aE->8F Description: C2 D 

DCZ D 

Format type:5 Result: Condition-bit =1 if D = 

Description: Compairs D with and sets the condition bit, 
if D equals 0. 



6PL-5tatusbyte: Condition-Bit set if D = 



Op-Code: >90->91 Description: INC D 

DINC D 

Format .type:5 Result: D = D + 1 

Description: Increases D by one 



6PL-5tatusbyte: GPU-Statusby te equals GPL-Statusbyte 
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Op-Code: >92->93 Description: DEC D 

DDEC D 

Format type:5 Result: D = D - 1 

Description: One point is substracted from D 



GPL-Statusbyte: CPU-5tatusby te equals 6PL-5tatusby te 



□p-Code: >94->95 Description: INCT D 

DINCT D 

Format type:5 Result: D = D + 2 

Description: D increased by 2 

GPL-Statusbyte: CPU-Statusby te equals GPL-Statusbyte 



Op-Code: >96->97 Description: DECT D 

DDECT D 

Format type: 5 Result: D = D -2 
Description: D decreased by 2 



GPL-Satusbyte: CPU-Statusby te eqquals GPL-Statusbyte 



Op-Code: >fl0->R3 Description: ODD S,D 

DflDD S,D 

Format type:1 Result: D = 5 + D 

Description: Rdds source to destination and stores the 
result in the destination. 



GPL-Statusbyte: CPU-Statusby te equals GPL-Statusbyte 
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Op-Code: >R4->R7 Description: SUB S,U 

D5UB 5,D 

Format type:1 ResuLt: D = D - 5 



Description: Substracts source from destination and stores 
the result in the destination. 



6PL-5tatusbyte: CPU-Statusby te equals GPL-Statusby te 



□p-Code: >fla->OB Description: MUL 5,D 

DMUL S,D 

Format type:1 ResuLt: D(D,D+1D = 5 * D 

or at Word: D(D,D+2) = 5 D 
Description: Source and destination are multiplied by each 
other. During a byte operation, the result is stored in the 
word of the destination; during a word operation, the 
result is stored in 2 words of the destination. 

GPL-Statusbyte: Not influenced 



□p-Code: >RC->RF Description: DIV 5,D 

DDIV 5,D 

Format type:1 Result: D=D(D,D+1)/5 ; D+1=remainder 

or at word always +2 
Description: Replaces the destination by the quotient of 
the destination by the source and the destination +1 (at 
word destination +2) by the remains of the destination 
devided by source. 

GPL-Statusbyte: Not influenced 



□p-Code: >B0->B3 Description: AND S,D 

DRND 5,D 

Format type:1 Result: = S HND D 

Description: Executes a RND operation by bits and stores 
the result in the destination. 



GPL-Statusbyte: CPU-Statusby te equals GPL-Statusbyte 
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Op-Code: >B4->B7 Description: OR 5,D 

DOR 5,D 

Format type:1 Result: D = 5 OR D 



Description: Executes an OR operation by bits and stores 
the result in the destination. 



6PL-5tatusbyte: CPU-5tatusbyte equals 6PL-Statusbyte 



Op-Code: >Ba->BB Description: XOR 5,D 

DXOR S , D 

Format type:1 Result: D = 5 EXOR D 

Description: Executes an exclusive OR operation by bits and 
stares the result in the des.tination . 



6PL-5tatusbyte: CPU-Statusby te equals GPL-Statusby te 



Op-Code: >BC->BF Description: 5T 5,D 

D5T 5,D 

Format type:1 Result: D = 5 

Description: Replaces the destination by the source 
operand. 



GPL-Statusby te : Not influenced 



Op-Code: >C0->C3 Description: EX 5,D 
Format type:1 Result: D = 5, 5 = D 

Description: Exchanges source and destination. 



GPL-Statusby te : Not influenced 
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Qp-Code: >C4->C7 Description: CH 5,D 

DCH 5,D 

Format type:1 



Description: Compares source and' destination and sets the 
Condition-Bit when the destination is logically greater 
than the source. 



GPL-5tatusbyte: Condition-Bit set according to comparison. 



Op-Code: >C8->CB Description: CHE 5,D 

DCHE 5,D 

Format type:1 

Description: Compares source and destination and sets the 
Condition-Bit when the destination is logically greater 
than or equal to the source. 



GPL-Statusby te: Condition-Bit set according to comparison, 



Op-Code: >CC->CF Description: CGT 5,D 

DC6T 5,D 

Format type:1 

Description: Compares source and destination and sets the 
Condition-Bit if the destination is arithmetically greater 
than the source. 



GPL-Statusby te: Condition-Bit set according to comparison, 



Op-Code: >D0->D3 Description: CGE 5,D 

• DCGE 5,D 

Format type:1 

Description: Compares source and destination and sets the 
Condition-Bit if the destination is greater than or equal 
to the source. 



GPL-Statusby te: Condition-Bit set according to comparison. 
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Op-Code: >D4->D7 Description: CEO 5,D 

DCEQ 5,D 

Format type:1 

Description: Compares source and destination and sets the 
Condition-Bit if the destination and the source are equal 



6PL-Statusbyte : Condition-Bit set if source and destination 
are equal. 



Op-Code: >Da->DB Description: CLOG 5,D 

DCLOG 5,D 

Format type:1 

Description: Executes an AND operation by bits between 
destination and source and sets the Condition-Bit if the 
result is 0. 



GPL-5tatusbyte: Condition-Bit set if Q RND 5 = 



Op-Code: >DC->DF Description: 5RR S,D 

DSRR 5,D 

Format type:1 

Description: The contents of the -destination is moved to 
the right according to the number of bits of the source. 
The empty bit digits are filled with the MSB of 
the destination. 

GPL-Statusby te : Not influenced 



Op-Code: >E0-)E3 Description: 5LL 5,D 

D5LL 5,D 

Format type:1 

Description: The contents of the destination is moved to 
the left according to the number of bits of the source. 



6PL-5tatusbyte: Not influenced 
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□p-Code: >E4->E7 Description: SRL 5,D 

D5RL 5,D 

Format type:1 

Description: The contents of the destination is moved to 
the Left according to the number of bits of the source. 



6PL-5tatusbyte: Not influenced 



Op-Code: >E8->EB Description: SRC 5,D 

D5RC 5.D 

Format type:1 

Description: The contents of the destination wiLL be 
cyclical ly moved to the right according to the number of 
bits in the source. 



6PL-5tatusbyte : Not influenced 



□p-Code: >ED Description: COINC 5,D 

incompletely decoded from >EC to >EF 
Format type:1 

Description: Condition-Bit is set if points of 2 objects on 
the screen overlap. COINC requires special tables in 6R0M. 



GPL-5tatusbyte: Condition-Bit set in case of overlapping 



Op-Code: >F4->F7 Description: I/O 5,D 
Format type:1 

Description: I/O is a special command. The destination is 

the address of a list whose format depends on the output or 

input function. The source choses the function. Today the 

following values are permitted: = Sound in GROM, 

1 = Sound in KfUP , 2 = CRU input, 3 = CRU output, 

4 = Write cassette, 5 = Read cassette, 6 = Verify cassette 
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□p-Code : 



>13 



Description: RT6R 



Format type:3 

Description: Takes the old 6RMRD and the oLd program 
counter from the substack and resets GROM. 

GPL-Statusby te : Condition-Bit reset 



Op-Code: >F8->FB Description: SttlGR S,D 
Format type:1 

Description: Switches the GROM-read address (CPU). The 
source is the new GRMRD and destination is the program 
counter (GROM). OLd PC and GRMRD are pushed on substack. 

GPL-Statusby te : Condition-Bit reset 



THE GPL COMMRND FORMOT 



Format type 1 : 



MSB 1 2 3 4 5 6 7 L5B 



1 Byte 



1 X X X X X U W 



Destination operand 



Source operand 



Format type 2: 



MSB 12 3 4 5 6 7 LSB 



1 Byte 



000XXXXX 



Immediate operand (byte or word). 
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Format type 3: 

MSB 12 3 4 5 6 7 L5B 
1 Byte 000XXXXX 

Format type 4: 

MSB 1 2 3 4 S 6 7 LSB 
1 Byte. 1 X Address 

Address (1 byte) 

Format type 5: 

MSB 1 2 3 4 b 6 7 LSB 
1 Byte 1 X X X X W 

Destination operand 

Format type 6: 

MSB 12 3 4 5 6 7 LSB 
1 Byte 001GR»JLN 
Number 

Destination operand 
Source operand 

Explanation of indizes: 

Format type 1 and 5: 

W --) 0=Byte operation 

1=Word operation (2 bytes) 

U --> 0=No immediate operand 

1=Immediate operand (IMM) 
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Format type 6: 



6 --> 0=Destination operand is GRQMConLy possible with 
1=Destination operand is no GROM GRRM's) 

R --) 0=Destination operand is not a VDP register 
l=Destination operand is VDP register 

V --> 0=Source operand is not the VDP RHM or CPU ROM 
1=Source operand is the VDP RRM or CPU ROM 

C 0=5ource is not GROM addressed over CPU RRM 
1=Source is GROM indicated or addressed over 
CPU RAM 

N --> 0=Number is not immediate operand 
1=Number is immediate operand 



The destination operands and source operands have five 
different forms: 

MSB 12 3 4 5 6 7 L5B 

1 Hddress CPU RHM is directly addressed 

>8300 through )837F 

2 1 V I Pddress Kf -~) 0=CPU RRM, 1=yDP RRM 
Rddress I --> 0=Direct, 1=Indirect 

3 1 I (J I Rddress Same as number 2, but indicated. 
Rddress 

Index 

4 1 V I 1 1 1 1 Extended area at through 65535 
Rddress Rddress with offset >8300, i.e. 
Rddress >DO00 corresponds to address >6000. 

5 Like number 4, only indicated. 
Rddress 

Rddress 
Index 
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THE GRQM 



There are several versions of GROM v«;hitch differ 
especially in the power up routine. The listing indicats 
the most importand differences. The attache hex dump 
listing can surf as comparison. 

GRQM contains the power up routine, several mathematikal 
routines and the cassette D5R. We do not commend on the 
mathematikal routines since there use is desribed in the 
handbook of the Editor/Assembler. 

Rt first the power up routine sets several pointers. Then 
the power up routines of the several GROM'S and of the D5R 
are executed on at last the Master Title Screen is 
prodused. The build up of a program list is produced by 
pushing a key and by pushing of the corresponding key the 
choosen program is started. 

The cassette routine, starting at G>1310 functions like an 
D5R and thus gives to the interested user exact 
information, how D5R work for the Periphery. 
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CONSOLE BROM RNRLY5I5 tl99/4R it 

ii * 

* 9.6.84 H. Martin * 

* * 



M X X X X )tjf»»*»XX X X X X X X X»j»jHHt»>Ht»^(-^^»^»if^jt»»it»»)»»jHfX»^^»»X XXXXKXXXXX X 



Header 






0000 : 


DOTR 


>RR02 


0002 : 


DRTR 


>0000 


0004 : 


DRTR 


>0000 


0006 : 


DRTR 


>0000 


0008 : 


DRTR 


>1310 


000n : 


DRTR 


>1320 


000C : 


DRTR 


>0000 


000E : 


DRTR 


>0000 



Header 

Power-up (isn't here) 
Program (isn't here) 
D5R 

Subrout ine 

Interrupt (isn't here) 



Jump 


table: 






0010 


: BR 


GROMe)03D3 


GROM D5RLNIC 


0012 


: BR 


GROMe>0439 


GSR return 


0014 


: BR 


6ROM§>09R5 


Number to string 


0016 


: BR 


6ROMe>0393 


Load standard character set 


0018 


: BR 


6ROKe>039B 


Load small capital letters 


001R 


: BR 


6ROMe>0443 


Warning information 


001C 


: BR 


GROM@>0446 


Error information 


001 E 


: BR 


6ROM@>0449 


Execution of a Basic program In GROI*! 


0020 


: BR 


GROM§>004F 


Power-up routine 


0022 


: BR 


GR0Me>11FR 


Greatest integer 


0024 


: BR 


GROM§>0C7E 


Involution routine 


0026 


: BR 


GROMe>0D55 


Square root 


0026 


: BR 


GROMe>0DB0 


Exponent 


002R 


: BR 


GROMe>0E60 


LOG 


002C 


: BR 


6RpMe>0EF5 


COS 


002E 


: BR 


GRDMe>0EFD 


SIN 


0030 


: BR 


GROMe>0F5B 


TRN 


0032 


: BR 


6ROM§>0F7C 


RTN 


0034 


: BR 


6ROM§>03CB 


Rccept tone 


0036 


: BR 


6ROMe>03D3 


Bad response tone 


0036 


: B 


6R0Me>4D12 


Get string space 


003B 


: BR 


GR0M§>125R 


Bit reversal routine 


0^30 


: BR 


6ROM§>0414 


GSRLNK (same as DSRLNK, but only routines in GROM) 


003F 


: B 


6R0Me>2844 


Reserved space in VDP RRM 


0042 


: B 


6R0Me>37B4 


Set program pointers 


0045 


: DRTR 


>60 


0046 


: DRTR 


>0D 




0047 


: DRTR 


>00 




0046 


: DRTR 


>11 




0049 


: DRTR 


>00 




004R 


: BR 


6ROM§>03BF 


Load lower case set 


004C 


: DRTR 


>B0 


Here change in some GR0M5: Set pointers to the 


004D 


: DRTR 


>B0 


character blocks. The other routines are shifted 


004E 


: DRTR 


>70 


3 bytes upwards. 



Power up routine 



004F 
0052 
0057 
005B 
005F 
0063 
0067 
006B 
0071 
0073 
0076 



DCLR 
ST 
ST 
ST 
ST 
ST 
DST 
MOVE 
CLR 
MOVE 
MOVE 



Clear sound bytes 
Load speech write 
Set sound generators 



§>83CE 
e>9400, >70 
e>8400, >SF 
6)8400, >BF 
e>8400. >DF 
e>8400, >FF 
e)8372,>FF7E Load data/substack 
>0007 TO REG) 01 FROM 6ROMe)044E Load VDP register 
6)8300 

>0071 TO 6)8301 FROM 6)8300 Clear scratch pad >00-)71 
)003E TO. 6)8382 FROM 6)8300 )82->C0 
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007E 
0063 
0089 
008D 
0030 
0094 
0097 
003n 
009D 
003F 
00n2 
00n5 

00n8 

00PB 
00RF 
00B2 
00B5 
00B8 
00BB 
00BF 
00C2 
00C4 
00Cn 
00CD 
00D0 
00D3 
0005 
00D3 
00DB 
00E1 
00E4 
00EB 
00F2 
00F9 
0100 
0102 
0105 
0108 
0109 
01 0B 
010D 
01 0F 
0112 
0113 
0114 
0116 
0119 
011P 
011B 
011C 
011E 
0121 
0122 
0125 
0128 
01 2B 
01 2D 
0130 
0132 
0134 
0135 
0136 
0137 
01 3B 
01311 
0140 



MOVE 

MOVE 

D5T 

I/O 

D5T 

I/O 

5T 

I/O 

IW 

ST 

I/O 

5T 

I/O 

D5T 

I/O 

CRLL 

CLR 

5T 

5T 

CZ 

BR 

MOVE 
CLR 

noD 

CEQ 

BR 

5T 

□DEC 

hiUVE 

CLR 

MOVE 

MOVE 

MOVE 

MOVE 

RLL 

5T 

5T 

5CRN 

DEC 

BR 

DCLR 

5T 

FMT 



Print accept tone 
Check VDP RRM 



)000B TO e>a374 FROM 6)8300 
>0008 TO @)83C2 FROM §>8300 
e> 8303,) 0308 9301 Set CRU 
@>6302,>03 
@>8303,)1001 
e>6302,}03 
@>8303,>18 
e>8302.>03 
e>6300 
e>8303,>02 
§>8302,}03 
e>8303,>01 
6)8302, >03 
6)8303, > 1602 
6)8302, )03 
6ROMe>03CB 
VDP6)0000 
6)8370, )10 
VDP*) 8370, )R0 
VDP6)0000 
6ROM6)00D9 

>0001 TO RE6)01 FROM GROMe)044C 
VDP* ) 8370 

6)8370,6)8370 4, 8 or 16K? 

6)8370, >40 

6ROM6)00BB 

6)83FD,)0a System flags (16k flag) 
6)8370 Pointer end VDP RRM 

)0001 TO REG) 01 FROM GROM6)0241 
VDP6)0000 

)0FFF TO VDP6)0001 FROM VDP6)0000 Clear VDP 
)0020 TO VDP6)0380 FROM GROM6)0455 Load color 
>0200 TO VDP6>0900 FROM GROMe>04B0 
)0050 TO VDP6>0808 FROM GROM6>094C 
)20 Clear screen 

6)837E,)05 Load line screen 
6)8374,e)837E Keyboard mode 5 



>74->7F 
)C2->CH 



table 

Standard character set 
Special signs 



6>837E 
6ROMe)0105 
6)837E 
6)8375, )60 



Check all keyboard modes 



)60 on RSCII value key 
Colorbar on screen 



FOR 02 
01 ('6)8375' ) 
END FOR 6ROMe)0114 
11^ 
1E< 

FOR 02 
01 {'6)8375' ) 
END FOR GROM6)011C 
END FMT 
SUB 6>837E,)12 
RDD 6)6375, )08 
CEQ 6)6375, )E0 
BR GROM6)0112 
CEQ 6>637E,)03 
BR 6ROM6)010F 
DCLR 6)837E 
FMT 



All fields? 



05^ 
0F< 

' )01,)02,)03' 
1D< 

' )04,)05,)06' 
1D< 



Letters on screen 



TI characters 
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0141 




' >07, >08, >03' 






0145 


... 08" 






0146 


... 10< 






0147 




• :RE0DY-PRE55 ONY KEY TO BEGIN:' 




0164 


... END FMT 






0165 


MOVE 


)0011 TO VDP§>0128 FROM 6ROM§>0432 


Texas Instruments 


016C 


MOVE 


>0018 TO VDP§>02C4 FROM 6ROMe>048B 


c Texas Instruments 


0173 


MOVE 


>000D TO VDPe>016O FROM 6ROMe>04O3 


Home Computer 


01 70 


5T 


e>8343, >10 




01 7D 


COLL 


6ROM§>0373 


Check if 6R0M exists 


on )6000 


0180 


DCLR 


e>83D0 


6R0M search pointer 


clear 


0183 


CLR 


§>8355 




0185 


5T 


e>836D, )04 






0188 


XML 


>13 


Search power-up LINK'S and execute DSR ROM's 


0180 


BS 


GROM§>0188 






01 8C 


D5T 


@>8372, >00a0 


Stacks initialize 




0130 


D5T 


*>8372,>013F 


Data stack new GROM 


address 


0135 


XML 


)10 


Execute power-up LINK'S GROM 


0137 


D5T 


*> 8373, *> 8372 


Data from data stack 


to substack(new RTN address! 


01 3C 


DECT 


§)8372 


Data stack new value 


(>FE! !) 


01 3E 


RTN 








Go on 


af ter 


initializing: 






01 3F 


DCZ 


e>83D0 


GROM search pointer 





0102 


BR 


GROMe>018C 


No, start power LINK 


GROM 


0104 


MOVE 


>0001 TO RE6>01 FROM 6ROM§>044D Load VDP register 1 


0100 


CLR 


§>8374 


Mode 




01flC 


ROND 


>FF 


Random number in >8378 


01 OE 


SCON 








01 OF 


BR 


GROMe>01RC 


Wait for pressed key 




01B1 


CRLL 


GROM§>03CB 


Occept tone 




01B4 


ALL 


>20 


Clear screen 




01 B6 


ST 


e>8372, >FE 


Data stack )FE 




01B3 


5T 


@>836D, >06 


Program LINK 




01BC 


CLR 


§>a36C 




01 BE 


CLR 


e>83FB 






01C1 


MOVE 


>001E TO VDPe>0400 FROM 6ROMe>6000 




01C8 


ST 


§>a3FB, >04 


GRMRD +4 




01CC 


MOVE 


>001E TO VDP§>0420 FROM GROMe>6000 




01 D3 


CLR 


e>8358 


Oh, test on "Super Modul Expander" 


01D5 


CLR 


6)8353 






01D7 


B 


6ROM§>01DC 






01 DO 


INC 


§>8353 






01DC 


CGT 


e>8353, >1D 






01DF 


BS 


GROMe>01ED 






01E1 . 


CEQ 


VDP@ > 0400 ( § > 8358 ) , VOPe > 0420 ( @ > 8356 ) 


Ore GROM's parallel? 


01 E8 


BR 


6ROM§>01EF 




01EO 


B 


GROM§>01Dfl 






01ED 


BR 


6ROM§)01FD 






01EF : 


INCT 


e>8372 






01F1 


DCLR 


*>8372 






01F4 : 


INCT 


§>8372 






01F6 : 


DST 


*>8372, )1201 


)1201 on data stack 




01FB : 


INC 


@>836C 


1st program 




01FD : 


CEQ 


@>6000, >00 


ROM Header? OH!!! 


/ Not at GROM V2.2 


0202 : 


BR 


GROMe>0224 




/ 


0204 : 


DST 


@> 8358, 6)6006 


Next program start 


/ The other shifted 


0203 : 


DCZ 


6)8358 


/ accordingly 


020B : 


BS 


GROMe>0224 




/ 


0200 : 


INCT 


6)8372 




/ 


020F : 


DST 


*)8372, )FFFF 


Flag on stack 


/ This change eliminates 


0214 : 


INCT 


6)8372 


/ the ROM moduls 


0216 : 


DST 


Jt) 8372, 6) 8358 


Oddress on stack 


/ 


0210 : 


INC 


6)836C 


2nd program? 


/ 


021 C : 


DST 


6) 8358 , 6 ) 0000(6 ) 8358 ) 


/ 


0222 : 


BR 


GROMe>0203 




/ 
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0224 
0226 
0223 
022B 
022D 
022F 
0233 
0235 
023B 
023E 
0240 
0246 
0247 
0246 
0243 
024D 
024E 
0252 
0253 
0257 
0258 
0253 
025F 
0260 
0267 
026E 
0272 
0275 
0277 
0273 
027fl 
027C 
0260 
0266 
0230 
0232 
^236 
0238 
023F 
02R3 
02n7 
02n3 
02PD 
02flF 
02B3 
02B5 
02B7 
02B3 
02C1 
02C3 
02CB 
02CD 
02D4 
02D6 
0200 
02E1 
02E4 
02E6 
02E3 
02EC 
02F2 
02F4 
02F6 
02F7 
02F3 
02FC 



Increase stack 

Search program in GROM 

65RLNK 

Loop till all 



I NET e)8372 
DCLR *>6372 

XML >in 

BS GROMe>0224 
DECT e>a372 
DCEQ §>a302,>12R1 
BR 6ROM@>0240 

MOVE >0001 TO e)a353 FROM 6ROMe>6000 GROM here? 

CEO e>8353,>Rfi 

BR 6ROM@)01B6 New start 

MOVE >0001 TO REG)01 FROM 6ROMe>044E Screen enable 
FMT Load screen 

01" 
02 < 

' >01 , >02, >03' TI characters 
10< 

' >04, >05, >06' 
1D< 

'>07,>08,>03' 
01" 
1F< 

' : PRESS: ' 
END FMT 

>0011 TO VDP§>0026 FROM GROM@>0432 Texas Instruments 
>000O TO VDP§>00B6 FROM GROMe>04fl3 Home Computer 
@>&352,>00E4 Rddress screen 
@> 6358,) 30 Number 
©>83BC No program? 

6ROM§>0230 Jump, if program 

No program, then message: Insert cartridge 
XPT=>02 as a 

' : INSERT CRRTRIDGE: ' 
END FMT 

GROMe>02EC 
@>8358 

VDP*> 8352, e> 8358 Write number 
DINCT §>8352 VOP address 

MOVE )0003 TO VDP*>8352 FROM GROM© > 0343 Text "FOR" 
e>8352,>B004 VOP address 
e>83Bfl,it>8372 
§>8372 

e>835C,*>8372 
e>8372 

@>836R, >0004 
e>835E 
e>835C 
GROMe>02CD 

>0001 TO §>635F FROM §> 0000(6 >a38R) 
§>836R 

e>835E TO VDPit>a352 FROM §>0000(§>83Bfl) 
GROM§>02DD 

>0001 TO §>a35F FROM 6ROMe>0000(§>a3Bfl) 
@>a36R 

§>a35E TO VOP* > 8352 FROM 6ROMe>0000(e)83BR) from GROM 
§>a352,>003R New VOP address 
§> 8372,) 00 Stack 
GROMe>0230 No, next program 
e>8343,>13 >B013 

GROM§>0373 on substack, if GROM exsists on >B000 

>0001 TO RE6>01 FROM 6ROM§>044O Scfeen enable 



MOVE 

MOVE 

D5T 

ST 

CZ 

BR 

FMT 



BR 

INC 

ST 



DROD 
OST 
DECT 
OST 
DECT 
ORDD 
CLR 
CZ 
BS 

MOVE 
DINC 
MOVE 
BR 

MOVE 
DINC 
MOVE 
DROD 
C6E 
BS 
ST 

CRLL 
MOVE 
CLR 
RRNO 
SCRN 
BR 
SUB 
CHE 



Length byte and 
Text from ROM 
Length byte and text 



e>8374 • 
>FF 

6ROM§)02F4 
§>8375, >31 
.§>8375,e>836C 



Mode 
Random number 
Keyboard scanning 
till key is pressed 
Integer from RSCII 
Wrong key 
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02FF 


: BR 


6ROM@>0307 




0301 


: CRLL 


6ROMe>03D3 Bad tone 




0304 


: B 


6ROM@>02F4 New key 




0307 


: CRLL 


6ROM§)03CB Accept tone 




030P 


: SUB 


§>836C,§>837S 




030D 


: DEC 


©>a36C 




030F 


: 5LL 


§>a36C, >02 




0312 


: 5T 


§>837a,*>a36C Flag in >a378 




0316 


: INCT 


§>a36C 




0316 


: D5T 


§>a35C,*>a36C start address in>a35C 




031C 


: DINCT 


e>a35c 




031 E 


: D5T 


e>8372,>9Ea0 New stack pointer 




0322 


: CZ 


6)8378 Check flag 




0324 


: B5 


6ROM§>032F 




0326 


: D5T 


@>83a0, 6)0000(6)8350 Start address from 


ROM 


032D 


: BR 


GROM§)0337 




032F 


: MOVE 


)0002 TO 6)8380 FROM GR0M6> 0000(6) 8350 


Start from GROM 


0337 


: RLL 


>20 Clear screen 




0339 


: DCZ 


e)83CE Wait for sound byte 




033C 


: BR 


6ROMe>0339 




033E 


: DCGT 


6)8370, )1000 Check VDP RRM 




0342 


: BR 


6ROMe)0353 




0344 


: D5T 


6)8300,6)8370 




0347 


: D5UB 


6)8300, )0FFF 




034B 


: MOVE 


6)8300 TO VDPe)1000 FROM VDPe)0FFF Clear 


VDP 


0353 


: CLR 


6)8300 




0355 


: MOVE 


)006F TO 6)8301 FROM 6)8300 CPU RRM )00- 


-)6F 


035n 


: MOVE 


)003C TO 6)8384 FROM 6)8300 and )84-)C0 


clear 


0360 


: CLR 


6)8374 Mode 




0362 


: MOVE 


)001F TO VDPe)0381 FROM VDP6>03a0 Load color table 


0363 


: DCLR 


6)8382 




036C 


: CZ 


6)8376 GROM? 




036E 


: BS 


GROM6)0378 Yes, execute program over 


GPL RTN 


0370 


: DECT 


6)fiJ/3 No, stack -2 




0372 


: D5T 


6)8300,6)8380 Fetch address in )8300 (for XML) 


0376 


: XML 


)F0 and execute 




0378 


: RTN 






Check 


if 6R0M on >6000 




0379 


: ST 


6)8342, )60 




037E 


: MOVE 


)0002 TO 6)8328 FROM GROM6)6000 




03S2 


: CEQ 


6)8328, )RR GROM here? 




0385 


: BR 


GROMe)0392 




0387 


: C6E 


6)8329, )00 Number <)07 




038n 


: BS 


GROM6>0392 




03ac 


: INCT 


6)8373 




036E 


: DST 


*)8373, 6)8342 on stack 




0392 


: RTN 






Load 


standard character set 




0393 


: MOVE 


)0200 TO VDP*)834fl FROM GROMe)04B0 




033P 


: RTN 






Load 


small capital character set 




039B 


: DST 


6)83D0,)06B0 Rddress GROM 




03fl0 


: ST 


6)8302,) 40 Number 




03n4 


: CLR 


VDP*>834fl Clear 1st byte in VDP 




03R7 


: MOVE 


)0007 TO VDP6)0001(6)a34R) FROM GR0M6) 0000(6)8300) 


03B0 


: DRDD 


6)634R,)0006 VDP address«6 




03B4 


: DRDD 


6)83D0,)0007 GROM address«7 




0369 


: DEC 


6)63D2 




03BC 


: BR 


GROMe)03fl4 0? 




03BE 


: RTN 






Load 


lower case character set 




03BF 


: DST 


6)83D0,)0870 GROM address 
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03C4 : 


ST 


@>63D2, >1F 


Numbe r 




□ 




Execu te 


Hccspt 


1 one 






03CB : 


D5T 


@>8358. >0475 


Load tone 


03CF : 


I/O 


@>6358, >00 


Print 


03D2 : 


RTN 






Bad response 


tone 




03D3 : 


DST 


@>8356, )0480 


Load tone 


03D7 : 


BR 


i^priMB s (Ti'^rP 
ur\ui 16 / iLi>3Lr 


Execu te 


GPL D5RLNK: 








FPTr 


§>636D 


Fetch data 


ci'arm 
\OjUO : 


PI D 


§>6354 




Dnnn . 
ilijuij : 


CT 
3 1 


§> 6355, VDP*> 8356 Fetch Length byte name 


luoti 1 : 


n P 


§>6356 






ncT 


§> 6352, e> 6356 






niMr 


@>6352 








@ > 6358, @> 6355 


Length = length of name? 






6ROM@>03F7 






VDP*>8352,>2E 


Point? 


luJr 1 : 




6ROM§>03F7 


Yes, go on 


adrj : 


T ktf" 


§>8356 


Length DSR name+1 


CI'SFC . 

laJr3 : 


on 


6ROM§>03E6 


Go on 


DI'SFV . 

KUr / : 




@>8358 


Length 0? 


<7l'3FQ . 

UJro : 


PC 


5ROM§>0435 


Yes, end with condition bit 


KidrD : 


CT 

zt 1 


e > 8355, @> 6356 


Length on >8355 


DI'5FF . 


LUC. 


§>6355, >06 


Longer than 6? 




PC 


6ROM@>0435 


Yes, end with set condition bit 






e>8354 








§>63D0 


Clear GROM search pointer 


0406 : 


DINC 


@>6356 


Beginning of name 


040P : 


MOVE 


e>8354 TO e>834R FROM VDP*>63S6 Fetch name on FRC 


040r : 


noon 
UHUU 


@>835B,e>8354 


Left pointing! 


0412 : 


XML 


>19 


Execute with following RTN (if four 








go on with GSRLNK 


GSRLNK 






0414 : 


'iNCT 


@>6373 


GROM read data on substack 


v'i ID : 


ncT 


*>8373,§)83FR 




1^41 D : 


XML 


>1fl 


GSRLNK 


1^4111 : 


oK 


GROMe>0429 




041F : 


INCT 


§>6373 




0421 : 


DST 


*> 8373,*) 8372 


Data stack on substack 


0426 : 


DECT 


@>8372 




0426 : 


RIN 






0429 : 


DCZ 


@>63D0 


GROM search pninte'r 0? 


042C : 


BR 


GROM@>041B 




042E : 


DST 


§>63FR,*>8373 


GROM read address from substack 


0433 : 


DECT 


e>a373 




0435 : 


CEQ 


@> 6300,6) 6300 




0436 : 


RTNC 




Return condition bit is set 


0439 : 


DECT 


e>8373 




043B : 


DST 


e>63FR,*>8373 


Fetch R13 6PLWS from substack 


0440 : 


DECT 


§>8373 




0442 : 


RTN 




Return 


0443 : 


B 


6R0M§>284C 




0446 : 


B 


6R0Me>264E 




0449 : 


B 


GROM@>2010 




yCP register 


data: 




044C : 


DRTfl 


>60 




044D : 


DRTR 


>60 





otherwise 
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044E : DRTR 

044F : DRTfl 

0450 : DfiTfi 

0451 : DRTR 

0452 : DRTR 

0453 : DRTR 

0454 : DRTR 

Color table t 

0455 : DRTR 
045D : DRTR 
0465 : DRTR 
046D : DRTR 



Sound 

0475 ; 

0476 : 

0477 ; 

0478 ; 

0479 ; 
047R ; 
047B : 
047C : 
0470 ; 
047E : 
047F I 

Sound 

0460 : 

0461 : 

0462 : 

0463 : 

0464 : 

0465 ; 

0466 : 

0467 : 
0466 : 
0463 : 
046R : 



20 
F0 
0E 
F3 
66 
F6 
F7 



tie screen 

17, >17, >17, >17, >17, >17, )17, )17 
17, >17,>17, >17, >06, >03, >01, >0B 
0C, >0D, >0F, >04, >02, >0D, >06, >0E 
0S, >03, >0R, >06, >27, )27, )22, >22 

list accept tone 

DRTR >06 

DRTR )BF 

DRTR >DF 

DRTR >FF 

DRTfl >80 

DRTR >05 

DRTfl >92 

DRTR >0R 

DRTfl >01 

DRTfl >3F 

DRTR >00 

list bad tone 

DRTR >06 

DRTR )BF 

DRTR >DF 

DRTR >FF 

DRTR >80 

DRTR >20 

DRTR >90 

DRTR >0n 

DRTR )01 

DRTR >3F 

DRTfl )00 



Text titel screen: 

046B : TEXT '>0fl,:1981 TEXR5 INSTRUMENTSHOMt COMPUTER:' 



Standard charcter set data: 



04B0 


DRTfl 


>00, 


>00, 


>00, 


>00, 


>00, 


>00, 


>00, 


>00 


04B8 


DRTR 


>20, 


>20, 


)20, 


>20, 


)20, 


>20, 


>00, 


>20 


04C0 


DRTR 


)46, 


>46, 


>46, 


>00, 


>00, 


>00, 


>00, 


>00 


04C6 


DRTfl 


>00, 


>4a, 


>FC, 


)46, 


>48, 


)FC, 


>48, 


>00 


0400 


DflTfl 


>10, 


>3C, 


>50, 


>38, 


)14, 


>76, 


>10, 


>00 


0406 


DflTfl 


>C0, 


>C4, 


>06, 


>10, 


>20, 


>40, 


>8C, 


>0C 


04E0 


DflTfl 


>60, 


>90, 


>30, 


>60, 


>60, 


>94, 


)88, 


>74 


04E6 


DRTR 


>06, 


>10, 


>20, 


>00, 


>00, 


>00, 


)00, 


>00 


04F0 


DflTfl 


>06, 


>10, 


>20, 


>20, 


)20, 


)20, 


>10, 


>08 


04F8 


OflTR 


>40, 


>20, 


)10, 


>10, 


>10, 


>10, 


>20, 


>40 


0500 


DflTfl 


>00, 


>00, 


>46, 


>30, 


>cc, 


>30, 


>48, 


>00 


0506 


DflTfl 


>00, 


>00, 


>10, 


>10, 


>7C, 


>10, 


>10. 


)00 


0510 


DflTfl 


>00, 


>00, 


>00, 


>00, 


>00, 


>30, 


>10, 


>20 


0516 


DflTfl 


>00, 


>00, 


>00, 


>00, 


>7C, 


>00, 


>00, 


>00 


0520 


DflTfl 


>00, 


>00, 


>00, 


>00, 


>00, 


>00, 


>30, 


>30 


0526 


DflTfl 


>00, 


>04, 


>08, 


>10, 


>20, 


>40, 


>80, 


>00 


0530 


DflTfl 


)38, 


>44, 


>44, 


)44, 


>44, 


>44, 


>44, 


>38 


0538 


DflTfl 


>10, 


>30, 


>50, 


>10, 


>10, 


>10, 


>10, 


>7C 


0540 


DRTfl 


>76, 


>64, 


>04, 


>08, 


>10, 


>20, 


>40, 


>FC 


0546 


DflTfl 


>78, 


)64, 


>04, 


>38, 


>04, 


>04, 


>a4. 


>7a 


0550 


DflTfl 


>0C, 


>14, 


)24, 


>44, 


>84, 


>FC, 


>04, 


>04 


0556 


DflTfl 


>F8. 


>60, 


>60, 


>F8, 


>04, 


>04, 


>a4, 


>76 
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0560 


: DRTR 


>78, 


>&0, 


>80, 


>F8, 


>a4, 


>a4, 


>84, 


>78 


0568 


: DflTR 


>FC, 


>04 , 


>04 , 


>08 


>10, 


>20, 


>40, 


>40 


0570 


: DflTR 


>78, 


>a4, 


)a4', 


>78 


>84' 


>a4 


^^4 




0578 


: DRTR 


>7a, 


>a4, 


>a4, 


>&4 


>7c! 


>04 ', 


>04, 


>78 


0580 


: DRTR 


>00, 


)30, 


>30, 


>00 


>00, 


)30, 


>30, 


>00 


0588 


: DflTR 


>00, 


>30, 


>30, 


>00 


>00, 


>30, 


>10i 


>20 


0550 


: DRTfl 


>00, 


>0a, 


>10, 


>20 


>40, 


>20, 


>10, 


>08 


0538 


: DflTR 


>00, 


>00, 


>00, 


>7C 


>00, 


>7C, 


>00, 


>00 


051^0 


: DflTR 


>00, 


>40, 


>20, 


> 10 


>0a, 


> 10, 


>20, 


>40 


05n8 


: DRTfl 


>36, 


>44, 


>04, 


>08 


>10, 


> 10! 


>00i 


> 10 


05B0 


: DflTfl 


>00, 


>78, 


>a4, 


>3C 


>fl4 , 


>98, 


>a0. 


>7C 


05B8 


: DflTfl 


>78, 


>84, 


>84, 


>a4 


>FC, 


>a4. 


>84 


>84 


05C0 


: DflTfl 


>F8, 


>44, 


>44, 


>78 


>44 ', 




>44', 


>F8 


05C8 


: DflTfl 


>78, 


>a4, 


>a0. 


>80 


>&0, 


>80, 


>QA , 


>78 


05D0 


: DflTfl 


>Fe, 


>44, 


>44, 


>44, 


>44, 


>44 ', 


>AA, 


>F8 


05D8 


: DflTfl 


>FC, 


>a0, 


>80, 


>F0, 


>80, 


>80, 


>80, 


>FC 


05E0 


: DflTfl 


>FC, 


>a0, 


)a0, 


>F0, 


>80, 


>80, 


>a0, 


>d0 


05E8 


: DflTfl 


>78, 


>84, 


>80, 


>80 


>9C, 


>84, 


>a4. 


>78 


05F0 


: DflTfl 


>84, 


>a4, 


>84, 


>FC 


>84, 


)64, 


>84, 


>a4 


05F8 


: DflTfl 


>7C, 


>10, 


>10, 


>10 


>10, 


>10, 


>10, 


>7C 


0600 


: DflTfl 


>04, 


>04, 


>04, 


>04 


>04, 


>84, 


>a4. 


>7a 


0608 


: DflTfl 


>88, 


>90, 


>fl0, 


>C0 


>fl0, 


>30, 


>88, 


>84 


0610 


: DflTfl 


>40, 


>40, 


>40, 


>40, 


>40, 


>40, 


)40, 


>7C 


0618 


: DRTR 


>84, 


>CC,' 


>B4, 


>84, 


>84 , 


>84, 


>84, 


)Q4 


0620 


: DRTfl 


>84, 


>C4, 


>R4, 


>34, 


>6C, 


>84, 




>84 


0628 


: DRTfl 


)FC, 


)a4, 


>a4, 


>a4, 


>84, 


>84, 


>a4, 


>FC 


0630 


: DRTR 


>F8, 


>84, 


)84, 


>a4, 


>F8, 


>80, 


>80, 


»80 


0638 


L DflTfl 


>78, 


>84, 


>84, 


>a4, 


>84, 


>34, 


>88i 


>74 


0640 


: DflTfl 


>F8, 


>a4, 


>84, 


>a4, 


>F8, 


>30, 


)8a. 


>84 


0648 


: DflTfl 


>78, 


>a4, 


>80, 


>7a, 


>04, 


)04, 


>84, 


>78 


0650 


: DflTR 


>7C, 


>10, 


>10, 


>i0, 


>10, 


>10, 


>10, 


>10 


0658 


: DRTfl 


>84, 


>84, 


>a4, 


>84, 


>84, 


>84, 


>84, 


>78 


0680 


: DflTfl 


>44, 


>44, 


>44, 


>44, 


>28, 


>2a, 


>10, 


>10 


0668 


: DflTfl 


>84, 


>84, 


>a4, 


>a4, 


>84, 


>B4, 


>cc, 


>a4 


0670 


: DflTfl 


>84, 


>84, 


>48, 


>30, 


>30, 


>4a, 


>a4, 


>B4 


0678 


: DflTfl 


>44, 


>44, 


>44 , 


>28, 


> 10, 


)10, 


>10, 


> 10 


0680 


: DflTfl 


>FC, 


>04. 


)0a, 


>10, 


>20i 


»40) 


»80,' 


• PC 


0688 


: DflTfl 


>38, 


>20, 


>20, 


>20, 


>20, 


>20 


>20 


>38 


0690 


: DflTfl 


>00, 


>80, 


>40i 


)20! 


>10! 


>08l 


)04! 


>00 


0638 


: DflTfl 


>70, 


>10, 


>10, 


>10, 


>10, 


>10, 


>10, 


>70 


06n0 


: DflTfl 


>10, 


>2a, 


>44, 


>82, 


>00, 


>00, 


>00, 


>00 


06R8 


: DflTfl 


>00, 


>00, 


>00, 


>00, 


>00, 


>00, 


>00, 


>FC 


SmaLL 


cap! ta L 


Let 


te rs 


set 


(7 


byte 




r le 


:ter } 


06B0 


: DflTfl 


>00, 


)00, 


>00, 


>00, 


>00, 


>00, 


>00, 


' 10 


06B8 


: DflTfl 


>10, 


>10, 


>10, 


>10, 


>00, 


>10, 


)2b', 


'28 


06C0 


: DflTfl 


>28, 


>-00, 


>00, 


>00, 


)00, 


>28, 


>28, 


'7C 


06Ca 


: DflTfl 


>28, 


>7C, 


>28, 


>28, 


>38, 


>S4, 


'50, 


>38 


06D0 


: DflTfl 


>14i 


>S4, 


>3a, 


>60, 


>64, 


>08i 


'10, 


>20 


06D8 


: DflTfl 


>4C, 


>0C, 


>20, 


>50, 


>50, 


>20, 


>54, 


>48 


06E0 


: DflTfl 


>34, 


>08, 


>0a, 


>10, 


>00, 


>00, 


>00, 


>00 


06Ea 


: DflTfl 


>08, 


>10, 


>20, 


>20, 


)20, 


>10, 


>08, 


>20 


05F0 


: DflTfl 


>10, 


>08, 


>08, 


>08, 


>10, 


>20, 


>00, 


>2a 


06F8 


: DflTfl 


>10, 


>7C, 


>10, 


>2a, 


>00, 


>00, 


>10, 


>10 


0700 


: DflTfl 


>7C, 


>10, 


>10, 


>00, 


)00i 


>00| 


>00! 


'00 


0708 


: DflTfl 


>30, 


>10, 


>20, 


>00, 


>00, 


>00, 


'7C, 


'00 


0710 


: DflTfl 


>00, 


>00, 


»00, 


>00, 


>00 


100 


>flPl 

/ w , 




0718 


: DflTfl 


>30, 


>00i 


»04 , 


»08! 


> 10' 


'20 


>40 




0720 


: DflTfl 


>38, 


>44, 


>44, 


>44 , 


>44! 


'44^ 


■38^ 


> 10 


0728 


: DflTfl 


>30, 


>10, 


) 10, 


»10, 


> 10, 


'38, 


'38 


>44 


0730 


: DflTfl 


>04, 


)0a, 


>10i 




>7c! 


> J8 


'44 


04 


0738 


: DflTfl 


>18, 


>04, 


)44 , 


>38, 


>08, 


'lai 


'28 ! 


48 


0740 


: DflTfl 


>7C, 


>08, 


>0a, 


>7C, 


>40, 


>78, 


'04 i 


>04 


0748 


: DflTfl 


>44, 


>38, 


>ia, 


>20, 


>40, 


>78, 


>44, 


>44 


0750 


: DflTfl 


>38. 


>7C, 


>04, 


>08, 


>10, 


>20, 


>20, 


>20 


0758 


: DflTfl 


>38, 


>44, 


>44, 


>38, 


>44, 


>44, 


>38, 


>38 
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0760 


OOTR 


>44, 


>44 


0766 


DflTR 


>30, 


>00 


0770 


DRTR 


>00, 


>30 


0778 


ORTR 


>20, 


>10 


0760 


ORTR 


>00, 


>m 


0766 


ORTR 


)20, 


>38 


0730 


ORTR 


>36, 


>44 


0738 


DRTR 


>44, 


>44 


07R0 


ORTR 


>24. 


»38 


07R8 


ORTR 


>40, 


»40 


07B0 


ORTR 


>24, 


>24 


07B6 


ORTR 


>40, 


>7C 


07C0 


ORTR 


>40, 


>3C 


07C8 


ORTR 


>44, 


>44 


07D0 


ORTR 


>10, 


>10 


0708 


ORTR 


>04, 


»04 


07E0 


ORTR 


>60, 


)50 


07E6 


DRTR 


}40. 


)40 


07F0 


ORTR 


>44, 


>44 


07Fa 


DRTR 


>44, 


»7C 


0600 


ORTR 


>78, 


>44 


0606 


ORTR 


>44, 


>44 


0610 


ORTR 


>44, 


>78 


0818 


ORTR 


)38, 


>04 


0820 


DRTR 


>10, 


>10 


0626 


DRTR 


>44, 


>3a 


0630 


DRTR 


>10, 


>44 


0838 


ORTR 


)44, 


>44 


0640 


ORTR 


)44, 


>28 


0648 


ORTR 


>08, 


>10 


0850 


ORTR 


>20, 


>20 


0858 


ORTR 


>08, 


>04 


aacn 
\aOa\0 


nnTO 


sCIA 
)\0O , 


> JO 


0668 


ORTR 


>00, 


>00 


Lower 


case set: 




0870 


DflTR 


>00, 


>20 


0878 


DRTR 


>00, 


>38 


0880 


DflTR 


>78, 


>24 


0866 


DRTR 


>40, 


>40 


0830 


DflTR 


>24, 


>24 


0836 


DflTR 


>40, 


>7C 


08n0 


DflTR 


>40, 


>00 


06fl6 


DflTR 


>00, 


>00 


08B0 


DflTR 


>00, 


>38 


0&B8 


DRTR 


>08, 


>08 


08C0 


DflTR 


>28, 


>30 


08C8 


DflTR 


>40, 


>40 


06D0 


DflTR 


)44, 


>44 


0608 


DflTR 


>44, 


>00 


08E0 


DflTR 


>00, 


>00 


06E6 


DflTR 


>00, 


>38 


08F0 


DflTR 


>78, 


>44 


08F8 


ORTR 


>40, 


>3a 


0300 


ORTR 


>10, 


>10 


0308 


ORTR 


)44, 


>3a 


0310 


DflTR 


>10, 


>00 


0318 


DRTfl 


>00, 


>00 


0320 


DflTfl 


>00, 


>44 


0328 


DflTR 


)7C, 


>06 


0330 


DflTfl 


>40, 


>20 


0338 


DflTfl 


>10, 


>10 


0340 


DflTfl 


>06, 


>30 


0346 


DflTfl 


>00 




0343 


TEXT 


' :FOR: ' 



3C, 


>04, 


>08, 


>30. 


>00, 


>30 


30, 


>30, 


)00, 


>00, 


>30, 


>30 


10, 


>20, 


>08, 


>10, 


>20, 


>40 


06, 


>00, 


>00, 


>7C, 


>00, 


)7C 


20, 


>10, 


>06, 


>04. 


>08, 


>10 


44, 


>04, 


>06, 


)10, 


>00, 


>10 


5C, 


>54, 


>5C, 


>40, 


>38, 


)38 


7C, 


>44. 


>44, 


>44, 


>78. 


>24 


24, 


)24, 


)76, 


>38, 


>44. 


>40 


44, 


>38, 


>78. 


>24, 


>24, 


>24 


76, 


>7C, 


>40, 


>40, 


>76, 


>40 


7C, 


>40, 


>40, 


>78, 


>40, 


>40 


40, 


>40, 


>5C, 


)44, 


>44, 


>38 


44, 


>7C, 


>44, 


>44, 


>44, 


>36 


10, 


>10. 


>10, 


)38, 


>04, 


>04 


04, 


>44, 


>38, 


>44, 


>46, 


>50 


46, 


>44, 


>40, 


>40, 


>40, 


>40 


7C, 


)44, 


>8C, 


>54, 


)54. 


>44 


44, 


>64, 


>64, 


>54, 


>4C, 


>4C 


44, 


>44, 


>44, 


>44, 


>44, 


>7C 


44, 


>78, 


>40, 


>40, 


>40, 


>38 


44, 


>54, 


>48, 


>34, 


>78, 


>44 


50, 


>48, 


>44, 


>38, 


)44, 


>40 


44, 


>38. 


)7C, 


>10, 


>10, 


>10 


10, 


>44. 


>44, 


>44, 


>44, 


>44 


44, 


>44. 


>44, 


>26. 


>28. 


>10 


44, 


)44. 


>54, 


>54, 


>54. 


>28 


26, 


>10, 


>26, 


>44, 


>44, 


>44 


10, 


)10, 


>10, 


>10, 


>7C, 


)04 


20. 


>40, 


>7C, 


>38, 


>20, 


>20 


20, 


>36, 


>00, 


>40, 


>20, 


>10 


00, 


>38, 


>08, 


>08, 


>06, 


>06 


00, 


>10, 


>28, 


)44, 


>00, 


>00 


00, 


)00, 


>00. 


>00, 


>00, 


)7C 


10, 


>08, 


>00, 


>00, 


>00, 


>00 


44, 


>7C, 


>44, 


>44, 


>00, 


;00 


38. 


>24, 


>76, 


>00, 


>00, 


>3C 


40. 


>3C, 


>00, 


>00, 


>78. 


>24 


78, 


>00, 


>00, 


>7C, 


>40, 


>76 


00, 


>00, 


>7C, 


>40, 


>78, 


>40 


00, 


>3C, 


>40. 


>5C, 


)44, 


>38 


44, 


>44, 


>7C, 


>44, 


)44, 


>00 


10. 


>10, 


>10, 


>38, 


>00, 


>00 


08, 


>48, 


>30, 


>00, 


>00, 


>24 


28, 


>24, 


>00, 


>00, 


>40, 


>40 


7C. 


>00, 


>00, 


>44, 


>6C, 


>54 


00, 


>00, 


>44, 


>64, 


>54, 


>4C 


00, 


>7C, 


>44, 


>44, 


>44, 


)7C 


78, 


)44, 


>7a, 


>40, 


>40, 


>00 


44, 


>54, 


>4a. 


>34, 


>00. 


>00 


78, 


>46, 


>44, 


>00, 


>00, 


>3C 


04. 


>78, 


>00, 


>00, 


>7C, 


>10 


10, 


>00, 


>00, 


)44, 


>44, 


)44 


00, 


>00, 


>44, 


>44, 


>28, 


>28 


00, 


>44, 


>44, 


>54, 


)54, 


>28 


44, 


)28, 


>10, 


)26, 


>44, 


>00 


28, 


)10, 


>10, 


)10, 


>00, 


>00 


10. 


>20, 


>7C, 


>18, 


>20, 


>20 


20, 


>18, 


>10, 


)10, 


>10. 


>00 


10, 


>30, 


>0a. 


>08, 


>04, 


>0a 


00, 


>20, 


>54, 


>06, 


>00, 


>00 
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Special characters for TI symbol: 

094C : DRTR >01 , >03, >03, >03, >03; >03, >03, >03 

0354 : DflTR >FC, >04, >0S, >0S, >0-4, >0B, >02, >0C 

035C : DRTR )00, >80, >40, >40, )80, >00, >BC, > 12 

03B4 : DRTR >FF, >fi0, >C0, >40, )60, )38, >1C, )0E 

03BC : DRTR >19, >21 , >21 , >3D, >05, >05, >05, >C4 

0374 : DRTR >BR, >8R, )8R, )BR, >R1 , >fl1 , >R1 , >22 

037C : DRTR >03, >01 . >00, >00, >00, >00, >00, >00 

0384 : DRTR >E2, )31 , > 10 , > 18, >0C, >07, >03, >00 

038C : DRTR >4C, >30, >20, >40, >40, >20, >E0, >00 
Copyrigth sign: 

0334 : DflTR >3C, >42, )39, >R1 , >R1 , >39, >42, >3C 

093C : MOVE >001R TO yDP@>03C0 FROM 6)8310 >8310->832R save in VDP 

0SH2 : DCLR @>8352 

03R4 : RTN 



Numbe r 


to string (CNS): 


03R5 : 


CRLL 




03R8 : 


MOVE 


>000Q TQ ©>fl1' 


03RD : 


DST 




03B1 : 


C6E 


@>834R, >00 


09B4 : 


B5 


GROM§)03BB 


03B6 : 


DNE6 


a > a34Q 


09B8 : 


5T 


@ > 8359 . > 2D 


03BB : 


57 


w / 1 O / / Sri 


03BE : 


DCZ 


@ > 834R 


03C0 : 


BR 


ur\ui Its / KioLlw 


03C2 : 




r: ) □ J ID,/ JlulOtS 


03C7 : 


TKir 

X 1 11— 


V / a«jj ID 


03C9 : 


rfiT 


x2/a«3DDj flOtJ 


03CC : 


RR 

UlN 


urxUI IG / ttHOa 


09CE : 


CT 
3 1 


e ) o J iio , }\0 \ 


09D1 : 






09D4 : 






09D6 : 


onn 


(9 > 03 1 Id « C > odb/ 


03D3 : 


L.HI_L. 


6ROM§>0C42 


03DC : 


BR 


uixUI ic= / \LirisjO 


03DE : 


roi 1 


r^PHMA \ DIRrP 


09E1 : 




e } OODD 




UP 




09E5 : 


r- 11 CT 

Lnt 


e>oJ//, >IOH 




BS 


uROM@ > 0H00 




ST 


6 / a J 1 lu , 6 / OJmH 


03ED • 


RDD 


e>8310, >BC 


0SF0 : 


CZ 


if>8310 


03F3 : 


BR 


6ROM§>0H00 


03F5 : 


INC 


e>&310 


03F7 : 


C6E 


e>8310, >52 


0SFR : 


BR 


GROMe>03F0 


0SFC : 


CLR 


@>8318 


09FE : 


BR 


6ROM§>0R20 


0R00 : 


ST 


e>8312,>05 


0R03 : 


C6T 


§)8377, >03 


0R06 : 


BS 


6ROMe>0R1R 


0R08 : 


C6E 


e>8377, >FC 


0R0B : 


BR 


6RQM§>0R1R 


0R0D : 


ST 


6)8312, )09 
6)8377, >FE 


0R10 : 


C6T 


0R13 : 


BS 


6RQM6)0R1R 


0fl15 : 


INC 


6)8312 


0R17 : 


RDD 


6)8312,6)8377 


0R1R : 


CRLL 


GROMe>0B6F 


0R1D : 


ST 


6)8318, >FF 


0R20 : 


C6T 


6)8377, )03 
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mZ3 : B5 

0R25 : C6T 

0n26 : BS 

0fl2R : C6E 

0fl2D : BR 

0R2F : ST 

0R32 : ST 

0R35 : ROD 

0R38 : DECT 

0R3R : DEC 

0R3C : CZ 

0R3F : BS 

0R41 : ST 

0R45 : CLR 

0fl47 : DIV 

0R4R : CZ 

0R4C : BR 

0R4E : DEC 

0R50 : CGT 

0R53 : BS 

0R55 : ST 

0R58 : CRLL 

0R5B : CRLL 

0H5E : BR 

0flB0 : ST 

0fl63 : ST 

0R66 : SUB 

0R69 : CRLL 

0RBC : CRLL 

0RBF : DST 

0R74 : CZ 

0fl76 : BS 

0fl78 : DST 

0R7D : DRBS 

0R7F : INCT 

0Rai : DST 

0R86 : CHE 

0R89 : BS 

0R8B : UlKf 

0R8E : DRDD 

0fl32 : DST 

0R36 : INCT 

0R38 : CLR 

0R9B : ST 

0R9E : ST 

0flR1 : ST 

0RR5 : INC 

0Rfl7 : CEQ 

0RRB : BS 

0RflD : CZ 

0RB0 : BS 

0flB2 : CEQ 

0RB6 : BS 

0RB8 : DCEQ 

0RBD : BS 

0RBF : DCEQ 

0RC4 : BR 

0RC6 : DECT 

0RC8 : DST 

0RCD : BR 

0RCF : DEC 

0flD1 : ST 

0RD5 : ST 

0RD8 : INC 

0HDR : CZ 

0RDD : BR 



6ROM@>0R60 

§>8377, >FR 

GROMe>0R55 

e>8377, >F6 

GROM@>0R60 

§>8310, >52 

§>8312,@)8314 

§>8312,>04 

e>8312 

e>8310 

*>8310 

GROKe>0R38 

@>8311,^f>a310 

§>8310 

@>8310, >0R 

e>8311 

GROK§>0R50 

e>8312 

§>8312,§>8377 

GRQM§>0R60 

§>8312, )0C 

GROKe>0BE8 

GROMe>0C55 

GRQKe>0R3B 

e>8312, >08 

e>8315, >03 

§>8315,e>8314 

GROM§>0C01 

6ROMe>0C5S 

*)8316, )452B 

@>8376 

GROM§>0R7F 

if)8316. >452D 

@>837B 

§>831B 

9t>8316, >2R2R 

e>8377, >B4 

GROM§>0R3B 

@>8376, >0R 

e>8376, >3030 

*> 8316, @> 8376 

§>8316 

*>8316 

@>8356, >59 

e>8312,e>8359 

*>8356, >20 

@>8358 

*>8356, >30 

GROM§>0HR1 

*>8356 

GROM§>0RCB 

*>8356, >45 

6ROM§>0RC6 

it)a35B, >2E00 

GRQM§>0RCB 

*)8356, >2E45 

GROM§)0RCF 

e>835B 

*>8356, >2030 

GROMe>0RD5 

@>835B 

*>835B,@>8312 
e > 8355, e> 8356 
e>835B 
»>835B 
GROMe)0flD8 
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0PDF : SUB 

0RE2 : MOVE 

0flEa : DCLR 

0REfl : RTNC 



@ > 6356, e> 8355 
>00in TO @>a310 
e>8352 



FROM VDP§>03C0 



0REB ; 


: CGE 


0REE ; 


: B5 


0RF0 : 


: CRLL 


0RF3 ; 


: CGE 


0RF6 : 


. BP 


0RF6 : 


: CGE 


lorfi o 


> RR 

1 DV\ 


0flFD ; 


: 5T 


0B00 : 


: DEC 


0B02 ! 


: CALL 


0B05 : 


: CGE 


0B06 ; 


: B5 


0B0R ; 


: CRLL 


0B0D : 


; ROD 


0B10 : 


; CGE 


0B13 ; 


. 3p 


0B15 : 


: ST 


0B16 ; 


: INCT 


0B1R ; 


. Q(5J 


0B1D ; 


: BR 


0B1F ■ 


: ST 


0B22 ; 


; SUB 


0B25 ; 


; CRLL 


0B28 : 


; CGE 


0B2B : 


: BR 


0B2D ; 


: BR . 


k)ti2F ; 


; ST 


0B32 ; 


; CGE 


0B35 : 


; BR 


0B37 ; 


; ST 




■ Dnn 


0B3D : 


: RTN 


0B3E ; 


: CZ 


0B40 : 


: BR 


0B42 : 


; ST 


0B46 ; 


; INC 


0B46 i 


i DEC 


0B4R ; 


; BR 


0B4C ; 


■ n R 


0B4F ; 


. 5j 


0B52 : 


; BR 






0B56 : 


: BS 


0B56 : 


: MOVE 




Z3 y 


0B60 : 


; DEC 


0B62 : 


I CRLL 


0B65 : 


J 1 


0B68 : 


; INCT 


0B6R : 


: SUB 


0B6D : 


RR 


0B6F : 


; SUB 


0B72 ! 


: SUB 


0B75 : 


; 5RL 


0B7e ! 


1 INCT 


0B7R ; 


; RND 


0B7D : 


: C6T 


0B60 : 


; BS 


0B82 : 


; ST 


0B85 : 


: CLOG 



e > 8377, @> 8355 

GROM§>0B3E 

6ROMe)0B2F 

§>8312, >FF 

6ROM§>0B54 

e>8312,e>8355 

GROM@>0B02 

§>8312,e>8355 

§)8312 

6ROMe>0B8F 

@ > 8377, §> 8355 

GROM§>0B3E 

6ROM§>0B2F 

e>8312, >03 

e>8312, >03 

GROMe>0B54 

@>8310,§>8355 

@>a310 

§>8312,@>a310 

GROM§>0B22 

@>8312,e>8310 

e>8312,e>8314 

GROMe>0BEa 

§>8357,>00 

GROM§>0R5B 

GROM§>0R9B 

§>8312,@>8355 

@>83S7, >00 

GROM@>0B3R 

@>a3i2,e>a357 

§>8312,§>8377 



@>a356 
GROMe>0B58 
it>83ie, >45 
§>8316 

e>a355 

GROM§>0B42 

*>8316 

e>8356, >59 

GROM§>0RD5 

e>8356 

6ROMe>03C2 

>000R TO @>834R FROM §>831fl 

e > 8312, §> 8356 

e>8312 

GROMe>0BBF 

e>8312,e>8356 

§>8312 

e>8312,§)8314 
GROM§>0R63 
e>8377,§>a312 
§>a312,e>8314 
e>8312, >01 

§>a3i2 

6)8312, >7F 
6)8312, )07 
GROMe>0BCF 
6)8310, >31 
6)8377, >01 
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0866 


: 85 


6ROM§)0B6D 


0B6R : 


: 5T 


@)6310, >04 


0860 : 


: 5T 


§>8314, >4R 


0BS0 ; 


; DCLR 


§>fl375 


0B32 ; 


; 5T 


e>6377,§>834fl 


0695 : 


: ST 


e>6318,e>834R 


0B36 : 


; ADD 


e)8314,§)8312 


0898 ; 


: ROD 


*>8314,e>8310 


0B9F ; 


; ST 


§>8354,e>8312 


0Bn2 : 


1 XML 


>02 


08fl4 : 


; CLR 


e>8312 


0BR6 : 


; CEQ 


e>6314,>4B 


0Bn9 : 


I BR 


6ROKe>0B80 


0BPB : 


; CEQ 


§>8318,§>834R 


08RE : 


; BR 


BROMe>0BC3 


08B0 : 


: CEQ 


§>8310, >04 


0BB3 : 


; BR 


5ROM§>0BC5 


0885 : 


: 5T 


e>6313,*>6314 


0BB9 : 


; DIV 


@>6312, >0R 


0BBC : 


; MUL 


e>8312,>0R 


08BF : 


I ST 


*>6314,§>8313 


0BC3 : 


; INC 


e>8314 


0BC5 : 


; CLR 


*>8314 


0BC6- : 


; INC 


§>8314 


0BCn ; 


; C6E 


§>6314, >52 


0BCD ; 


; BR 


GROMe>0BC5 



0BCF ; 


; ST 


§>6376,§>634R 


Exponent 


0BD2 1 


; SUB 


e)8376, >40 


*2 (100!) 


0BD5 : 


; SLL 


e>6376, >01 




0806 ; 


; OSRR 


e > 8376. > 0006 ' 




0BOC ; 


; CLR 


e>8314 




0BOE : 


; CGE 


@>834B, >0R 


10? 


0BE1 : 


; BR 


GROM§>0BE7 




08E3 : 


; INC 


6)8377 


Exponent +1 


0BE5 ; 


; INC 


e>8314 


Set flag 


0BE7 : 


; RTN 





08E6 : SUB 

0BEB : ST 

0BEE : ROO 

0BF1 : CGE 

0BF4 : BS 

0BF6 : ST 

0BF9 : SUB 

0BFC : CRLL 

0BFF : CLR 

0C01 : OCLR 

0C03 : ST 

0C06 : CRLL 

0C09 : CLR 

0C0B : ST 

0C0F : INC 

0C11 : Diy 

0C14 : OROO 

0C18 : CRLL 

0C1B : ST 

0C1E : CRLL 

HL21 : BR 

0C23 : ST 

0C26 : ST 

0C29 : ST 

0C2O : INC 

0C2F : DEC 

0C31 : 85 

0C33 : CEQ 



e>8377,§>6314 

§>8315,@>6377 

e>8315, >03 

e>8377,>00 

GROMe>0C01 

e>6310, >FF 

§>8310,§)6377 

GROM§>0C42 

e>6315 

e)6352 

e)6313, >4B 

6ROM§>0C2F 

@>6310 

e>8311,*>a313 

§>6313 

e>8310, >0R 

§>8310, >3030 

6ROMe>0C29 

e>8310,e>8311 

6ROMe>0C23 

GROM§>0C09 

@>631PI, >2E 

e>6317,e>8316 

*)8316,e>8310 

e>6316 

e)8315 

6ROMe>0C23 

e>6316, >69 
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0C38 : 


; BS 


5ROMe>0C3C 


0C38 ; 


; DEC 


@>8312 


0C3n ' 






BC3C i 


; DECT 


e>a373 


0C3E : 


; CLR 


4^)8316 




; RTN 




0C42 1 


; ST 


*>831B, >2E 


0C46 ; 


; INC 


§>8316 


0C48 ; 


; DEC 


@>8310 


0C4R ; 


1 CGT 


@>8310, >00 


0C4D : 


: BR 


GRGMQ > 0C3E 


0C4F ; 


; ST 


x>8316, >30 


0C53 : 


; BR 


GRQM§>0C46 


0C55 ; 


; DEC 


§>6316 


0C57 ; 


; CEQ 


i^)&^^G, >30 


0C5B : 


; BS 


GROMe>0CS5 


0C5D : 


: INC 


@>8316 


0C5F : 


: CZ 


6)8318 


0C61 : 


; BR 


GROM@)0C3E 


0CB3 : 


ST 


e>a3iB,e>a3i7 


0C66 : 


; BR 


6ROMe>0C3E 



DRDD §>83BE,>0008 Increase value stack pointer 

MOVE )0008 TO VDP*>838E FROM §)834H FHC on value stack 
RTN 

0C73 : MOVE >0008 TO @>834R FROM VDP*>836E Fetch stack entry on FHC 

0C79 : DflDD §>636E, >FFF8 New value stack pointer 
0C7D : RTN 



Involution routine: 



0C7E 


: CRLL 


GR0Me>11F2 


0C81 : 


: DCZ 


@>834R 


0C83 


: BS 


GROM@>0D3D 


0C85 : 


: DCZ 


§>a35C 


0Ca7 ; 


: BS 


GROM§>0D35 


0ca9 : 


; DRDD 


@>a36E, >000B 


0C8D : 


: CLR 


e>8375 


0C8F ; 


: CRLL 


6RGMe>0C68 


0C92 i 


: CRLL 


GR0Me>11FR 


0C95 ; 


: CLR 


§>8375 


0C97 : 


: CRLL 


GR0M§>11DC 


0C9R : 


: XML 


>0F 


0C3C ! 


: BR 


GROM§>0D47 


0C9E ; 


: CRLL 


GRQM§>0CBB 


0Cni 1 


: CLR 


e>a354 


0CR3 ! 


; XML 


>12 


0CR5 ; 


: DRBS 


@>a34R 


0CR7 ; 


; DST 


VDP§>03DB,§>834H 


0CRB ; 


; CRLL 


6ROMe>0C73 


0CRE : 


: CZ 


§>8354 


0CB0 : 


; BR 


6ROM§>0CFE 


0CB2 : 


1 CRLL 


GR0M§>11DC 


0CB5 ; 


; CRLL 


GROM§>0C6a 


0CB8 : 


: DDEC 


VDPe>03DB 


0CBB : 


; BS 


6ROMe>0CE0 


0CBD : 


; CLOG 


VDPe>03DC, >01 


0CC1 : 


: BS 


GROMe>0CC9 


0CC3 ! 


; XML 


>0D 


0CC5 : 


: DRDD 


e>a36E, >0008 


0CC9 : 


: DSRL 


VDP§>03DB, >0001 


0CCE : 


; DCZ 


VDP§>03DB 


0CD1 : 


; BS 


GROMe>0CE0 


0CD3 : 


CRLL 


GR0Me>11DC 


0CD6 : 


CRLL 


GROM§>0CBa 
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0CD9 : XML )0D 

0CDB : CRLL GR0Me>11DC 

0CDE : BR GROM§>0CBD 

0CE0 : DRDD §>836E,>FFF0 

0CE4 : C6E MDPe > 0006(6 > 836E ), >00 

0CE9 : B5 6ROM§>0CFD 

0CEB : CZ §>8354 

0CED : BR 6ROMe>0CF9 

0CEF : MOVE >0008 TO §>835C FROM 6ROMe>106D 

0CFS : XML >09 

0CF7 : BR GROM§>0CFD 

0CF9 : DCLR §>834R 

0CFB : CLR e>8354 

0CFD : RTN 

0CFE : CGE VDP* > 836E , > 00 

0D02 : BS GROM@>0D1B 

0D04 : ST §>8356,§)834R 

0D07 : PBS §>8356 

0D09 : CGT e> 8356,) 46 

0D0C : BS GROMe>0D1B 

0D0E : bl e>a375,§>83S6 

0D11 : ODD e>a375,>0B 

0014 : ST §> 8375, *> 8375 

0D18 : SRC §>8375,>01 

0D1B : ST VDPe>03DC,§>8375 

0D1F : CRLL GR0Me>11DC 

0D22 : ORBS e>834fl 

0024 : CRLL GROM§>0E60 

0027 : XML >0D 

0029 : CRLL 6ROM§>0OB0 
0D2C : CGE VDP§>03DC, >00 

0030 : BS GROMe>0O34 
0032 : DNEG §>834R 
0034 : RTN 



0035 
0038 
0O3R 
0D3C 

0030 
0043 



CGE 
BR 

DCLR 
RTN 

MOVE 
RTN 



§>834R, >00 FRC 0? 

GROMe>0D44 No, jump 

§>834R Set FRC and FRC+1 



)000a TO §)834R FROM 6ROM§>1041 Number 1 on FRC 



0044 
0046 



XML 
RTN 



>05 



Set overflow 



0047 
0O4B 
0040 
0051 
0054 



CGE 
BS 

OROO 

ST 

RTN 



VDPJt>836E. >00 
GROM§>0D1B 
§)83BE, >FFF8 
e>8354, >05 



Square 
0055- : 

0058 : 

0O5R : 

0O5C : 

0050 : 

0O5F : 

0062 : 

0065 : 

0068 : 

0D6C : 

0D70 : 

0073 : 



root : 

CRLL 

XML 

BS 

GT 

BR 

ST 

ST 

ROD 

D5RR 

05LL 

CRLL 

CALL 



GRGM§>099C 
>03 

GROMe>0RE2 

GROM§>0DnB 
e)8314,e>834R 
e>834R, >3F 
§)8314, >C1 
e>8314, >0008 
§>8314, >0001 
GROM§>0C68 
GROM@>0C68 
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0D7B ; 


: D5T 


0D7fl 


: CRLL 


0D7D ; 


: CRLL 


0D80 : 


I DST 


0D84 ; 


: CRLL 


0D87 ; 


: XML 


0D6S ; 


: ST 


0D8C : 


: MOVE 


0D92 ; 


: CRLL 


0D95 : 


: XML 


0D97 ; 


: XML 


0D99 ; 


: MOVE 


0D3F : 


: XML 


0Dfl1 ; 


: DEC 


0Dn3 : 


: BR 


0Dn5 : 


: DRDD 


0Dn9 : 


: BR 


DinQn 
UuHD 


3 1 


0DRE ; 


: BR 


Exponent : 


0DB0 ; 


: CRLL 


0DB3 : 


: MOVE 


0DB9 : 


: XML 


0DBB : 


: CRLL 


0DBE : 


: CRLL 


0DC1 i 


: MOVE 


0DC7 ; 


: XML 


0DC9 ; 


: B5 


0DCB : 


: 6T 


0DCC ; 


: BR 


0DCE ; 


: DNE6 


0DD0 ; 


; XML 


0DD2 ; 


; 6T 


0DD3 ! 


; BR 


0DD5 ; 


: DRDD 


0DD9 ; 


: DST 


0DDC ; 


; CLR 


0DDE ; 


; XML 


0DE0 ; 


: B 


0DE3 ; 


: CALL 


0DE6 ; 


; XML 


0DE8 i 


: DST 


0OEB : 


; CALL 


0DEE ; 


: DSLL 


0DF2 : 


; XML 


0DF4 : 


: MOVE 


0DFR : 


; XML 


0DFC : 


; 5T 


0DFD : 


: BS 


0DFF : 


; DNE6 


0E01 ; 


; XML 


0E03 : 


; DINC 


0E05 : 


; CRLL 


BEDci ; 


: DST 


0E0C : 


; CRLL 


0E0F ; 


; CALL 


0E12 : 


: DST 


0E16 : 


; CALL 


0E19 ; 


; CRLL 


0E1C ; 


; DRDD 


0E20 : 


; CRLL 


0E23 : 


; XML 


0E25 : 


; MOVE 


0E2fl : 


CRLL 


0E2D : 


CALL 



@)8312,>1027 

6R0M@>11R9 

GRQM@>11DC 

§>8312, >1041 

GR0M@>11R9 

>0E 

@>8312, >03 

>0008 TO @>83SC 

6ROM§>0C68 

>0g 

>06 

>0008 TO @)835C 
>08 

§)8312 
GROM@>0D8C 
e)836E, >FFF8 
6ROM§>0E39 
@>83b4, >04 
GROM§>0RE2 



FROM VDP*>836E 
FROM 6ROM§)0FDF 



6ROM@>093C 

>0008 TO @>835C FROM GROM§>0FEF 
>08 

GROM@>0C68 
6R0M§>11FR 

)0008 TO @>835C FROM 6ROM§>0FD7 
>0R 

QROM@>0DE3 

GROM§)0DD5 

@)835C 

>0R 

6ROM@>0DE3 

@>83BE, >FFF8 

@>8376,@>834fl 

@>8375 

>04 

GROM@>0HE2 
GROM@)0C68 
)12 

@>e314,@>a3<4R 
6RQM@)0C73 
@>8314, >0001 
>0C 

>0008 TO e>835C FROM 6ROM@>0FDF 
>0A 

GRQM@>0E05 

@>835C 

>06 

@>8314 
GROM@>0C68 
@>8312, >1053 
GROM@> 1 IflS 
GROM§> HOC 
@)a312. >106D 
GR0M@>11A2 
GR0M@>nF2 
@>a3BE, )0008 
GROM@>0C68 
>06 

>B008 TO §>831A FROM @>a34R 

GROMe>0C73 

GRDM©>11D6 
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0E30 : 


XML 


0E32 : 


MOVE 


0E37 : 


XML 


0E39 : 


CLOG 


0E3C : 


BS 


0E3E : 


MOVE 


0E44 : 


XML 


0E46 : 


MOVE 


0E4C : 


CLOG 


0E4F : 


BS 


0E51 : 


5T 


0E54 : 


D5RR 


0E5a : 


ROD 


l^tbo : 


AriL 


0E5D : 


B 


L06: 




0E60 : 


XML 


0E62 : 


BS 


0E64 : 


GT 


0E65 : 


BR 


0E67 : 


CALL 


0E6n : 


CRLL 


0E6D : 


CZ 


0E6F : 


BR 


0E71 : 


MOVE 


0E77 : 


ST 


0E7fl : 


XML 


0E7E ; 


; CRLL 


0E7F ; 


; DDEC 


0E81 : 


; BINC 


0Ea3 ; 


; ST 


0EaB ; 


; DST 


0E8R ; 


: MOVE 


0E30 ; 


; XML 


0E32 ; 


; CRLL 


0E35 ; 


; CRLL 


0E96 ; 


: DST 


0E3C ; 


; CRLL 


0E9F ; 


; CRLL 


0ER2 ; 


; DST 


0ERB ; 


: CRLL 


0Efi3 ; 


: XML 


0EP6 : 


: CRLL 


0EflE ; 


: DST 


0EB2 ; 


: MOVE 


0EB6 ; 


: DCZ 


0EBn : 


: BS 


0EBC ; 


: DRBS 


0EBE ; 


: DCGT 


0EC2 


: BS 


0EC4 


: ST 


0EC7 


: CZ 


0ECO 


: BS 


0ECC 


: DNEG 


0ECE ; 


: MOVE 


0ED4 


: XML 


0EDB 


: MOVE 


0EDC 


: XML 


0EDE 


: XML 


0EE0 


: B 


0EE3 


: DSUB 


0EE7 


: ST 


BEER 


: DST 


0EEE 


: B 


0EF1 


: ST 



>0C 

>0008 TO @>835C 
>09 

6)8315, )01 
6ROM@)0E46 
>0008 10 @)835C 
>08 

>0008 TO @>a35C 
§)a315, >02 
GROM@>0E54 
@>835D, >0R 
e>8314, >0002 
@>835C,@)8315 
>06 

GROM§>0RE2 



FROM e>831R 

FROM GROM§)0FE7 
FROM GROM@)1041 



>03 

GROM§>0EF1 

6ROM@>0EF1 
GROM@>033C 
GRCM@>0BCF 

e>83r4 

6ROM@>0Eai 

>000a TO @>835C FROM GRUM(a>1041 

@>835D, )0R 

>08 

6ROM@>0BCF 

@)8376 

6)8376 

@)834R, >3F 

VDP§>03DR,@)8376 

>000a TO @>835C FROM GROM§>0FE7 

)0a 

GRDM@)1177 
GROM@)0CB8 
e>8312, > 108F 
GR0M@)1.133 
GR0M@>11DC 
6)8312. )10B9 
GR0M§>11R2 
>0E 

6ROM§>0CB8 

@>a35C,VDP@)03Dfl 

>000B TO @>a35E FROM GROM@>0FE1 

@>635C 

GROM@>0ECE 

@>835C 

@>a35C, )00B3 

GROM@>0EE3 

6)83SL.. >40 

VDP@>03DR 

GROM6>0ECE 

@)635C 

>0008 TO @>a34R FROM 6ROM§)0FDF 
>07 

>0008 TO (S>835C FROM GROM@>0FF7 

>08 

)0B 

GROM§>0RE2 
@>a35C. )0064 
@>835E.@>835D 
@>835C, >4101 
GROM@)0EC7 
6)8354. >06 
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RFN 



MOVE 
XML 



)000a TO @>a35C hRGM 6ROM§>0FFF 
>06 



CRLL GROMe>099C 

MOVE >000e TO @>a35C FROM 6ROM§>1007 

XML )08 

5T VDP§>03DR,@>a34R 

DABS @>a34P 

COT @>a34R,>44 

BR 6ROM@>0Fia 

57 @>fl354,>07 

BR GROM@>0RE2 

LRLL 6ROM@)0C6a 

CRLL 6R0M@>11FR 

CLR @>8316 

DC2 §>a34R 

as GROM@>0F39 

5T @>8377,@>834R 

SUB @>a377.>46 

CGT e>a377,>00 

BS GROMe>0F36 

ADD e>a377,>51 

5T §>831B,*>a377 

AND @> 8316,) 03 

XML >0C 

CLOG e>a31B,>01 

85 BROM@>0F48 

MOVE >0008 TO e>835C FROM GROM@)1041 

XML >07 

5RL §>a316,>01 

CZ §>a316 

B5 6ROMe>0F52 

INV VDP§>03DR 

D5T e>a312,>10E3 

CRLL GR0M§>1'199 

BR GROM@>0FCD 



CRLL 

CALL 

CRLL 

CALL 

CALL 

CEO 

BS 

XML 

BS 

XML 

RTN 

5T 

XML 

RTN 



GROMe>0C6a 
GROM@>0EFD 
6R0M§>11DC 
GROM@>0EF5 
6R0Me>11F2 
@)8354, >07 
GROMe>0F75 
>03 

GROMe>0F76 
>09 



e>a375,@>a35c 

>05 



CRLL BROMe>099C 

5T VDP§>03DR,§>a34A 

DABS e>a34R 

DCLR e>e316 

MOVE >0008 TO e>835C FROM GROMe>1017 

XML >0R 

B5 GROM@>0FB9 



- 114 - 



0F91 : 


H 














0F92 : 


BS 


GROM§>0FB9 












0F94 : 


MOVE 


>0006 TO §>835C 


FROM 


6ROM§>101F 


0F9n : 


XML 


>0R 












0F9C : 


H 














0F9D : 


BS 


GROM§>0FB2 












0F9F : 


MOVE 


)0008 TO @>835C 


FROM 


6ROMe>1041 


0Ffi5 : 


D5T 


§)835C, >BFFF 












0FP9 : 


XML 


>09 












0FRB : 


EST 


6)8316, >0FFF 












0FflF : 


B 


GROM§>0FB9 












0FB2 : 


CRLL 


6R0Me>1177 












0FB5 : 


DST 


e)8316, >100F 












0FB9 : 


D5T 


e>8312, )1125 












0FBD : 


CRLL 


6R0Me>ri99 












0FC0 : 


DC2 


6)8316 












0FC2 : 


BS 


GROM§>0FCD 












0FC4 : 


MOVE 


)0008 TO §>835L 


FROM 


BROMe>0000(@)8316) 


0FCB : 


XML 


)06 












0FCD : 


CGE 


VDPe>03DR, >00 










0FD1 : 


BS 


GROM§)0RE2 












lurUJ 




e)834fl 












0FD5 : 


BR 


GROM@>0flE2 












Various constants : 












0FD7 : 


DRTR 


)41 , )01 , )1B, 


)00 


)00, 


^00, 


>00, 


)00 


0FDF : 


DRTR 


>3F , )32, )00, 


>m 


>00, 


>m. 


>00, 


)00 


0FE7 : 


DRTR 


)40. >03. >10, 


► 16 


>4D, 


>42, 


)01, 


)45 


0FEF : 


DRTR 


>3F, >2B, >2R, 


5E 


>30, 


13, 


>03. 


>19 


0FF7 : 


DRTR 


>40,)02, >1E, 


19 


)55, 


>09, 


)1D, 


>5E 


0FFF : 


DRTR 


>40. >01 , >39, 


07 


>60, 


>20, 


)43, 


)5F 


1007 : 


DRTR 


)3F, >3F, >42, 


13 


>4D, 


>17, 


>43, 


>3R 


100F : 


DRTR 


)3F. )4E, >35, 


62 


>10. 


>21 , 


>61, 


>2D 


1017 : 


DRTR 


>3F, )29, >2R, 


»0D 


>38, 


>17, 


>49, 


)0R 


101F : 


DRTR 


)40, )02, >29, 


>2R 


)0D, 


>38, 


>17, 


)49 


1027 : 


DRTR 


)3F , >3R, >51 , 


»16 


>5fl, 


>m, 


>00, 


)00 


102F :• 


DRTR 


)3F , >34 , >43, 


>57 


>32, 


>00, 


>00, 


>00 


1037 : 


DRTR 


)3E, >3R, >51 . 


>14 


>00, 


>m. 


>00, 


>00 


103F : 


DRTR 


)80, )00 












1041 : 


DRTR 


>^i0. >0t . )00. 


>00 


)00, 


>00, 


>m. 


)00 


1049 : 


DRTR 


>3F , >09, >63, 


>63 


)50, 


>00, 


>00, 


)00 


1051 : 


DRTR 


>80. >00. >40, 


> 12 


)1F, 


> 17, 


>3C. 


>0F 


1059 : 


DHIR 


)5L, >4B 












105B : 


DRTR 


)41 , >08, > IF . 


>28 


)43. 


> 15, 


>1D. 


>25 


1063 : 


DRTR 


>41 , >33, )4E. 


»09 


)13, 


>5B, 


)33. 


>3E 


106B : 


DRTR 


>80, )00 












106D : 


DRTR 


)40, )01 . )00, 


>00 


>00, 


>00, 


)00, 


)00 


1075 : 


DRTR 


)41 , >01 , )3B, 


>25 


)29, 


>34, 


>24, 


>03 


107D : 


DRTR 


>41 , >1B, )09, 


> IF 


>45, 


>28, 


>SS, 


>10 


1085 : 


DRTR 


)41 . >2L. >61 , 


>3F 


>23, 


>39, 


>28, 


>3R 


108D : 


DRTR 


>a0, >00, >3F, 


>23 


>43, 


)05, 


)0fl, 


>1E 


1095 : 


DRTR 


)58, >2i:, >BF, 


>F5 


>62, 


>1E, 


>21 , 


)1F 


109D : 


DRTR 


>24, >58, )40, 


>3F 


)4D, 


>36, 


>52, 


>1C 


1005 : 


DRTR 


)56. )11 , )BE, 


>FF 


)0a, 


>53, 


>47, 


>16 


10nD : 


•DRTR 


>23. >3fi, )40, 


»39 


)5E, 


>49, 


>51 , 


>26 


10B5 : 


DRTR 


>2C, )2C, >a0. 


>00 


>40, 


>01 , 


)00, 


)00 


10BD : 


DRTR 


> 00 , ) 00 , ) 00 , 


>00 


>BF, 


>F3, 


)0D, 


>19 


10C5 : 


DRTR 


>61 . >48, )58, 


>2E 


>40, 


>2F, 


)2D, 


>12 


10CD : 


DRTR 


>16, >24, >02, 


>3D 


>BF, 


>C0, 


)07, 


>40 


10D5 : 


DRTR 


>3R. >07. >34, 


>38 


>40, 


>1C, 


)61 , 


>24 


10DD : 


DRTR 


>5R, )45, >16, 


>16 


>a0, 


>00, 


)C4, 


>FR 


10E5 : 


DRTR 


>2C, )49, >10, 


>00 


>00, 


)00, 


)3C, 


>05 


10ED : 


DRTR 


>44, )52, )03, 


>21 


>1R, 


>5a, 


)C2, 


>FD 


1BF5 : 


DRTR 


)3B. >5a, )09, 


>0B 


)46, 


>1F, 


)3E, 


>01 


10FD : 


DRTR 


>3C, >2C, )0B, 


>44 


>2E, 


>62, 


>C1 , 


>D2 


1105 : 


DRTR 


>51 . >4B, >29. 


>1F 


)06, 


>02, 


>3F, 


>07 
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DRTR >60, >5C, >3E, )3E, >2D, )3E, )C0, >C0 

DRTP >3B, >40, )09, )4B, >06, >16, >40, >01 

DRTR >33, >07, >60, >20, >43, >5F, >a0, >00 

DHTH >C0, )FE, >3B, >39, >12, >4F, >5a, >14 

DRTR >3F, )05, >02, >4F, >0D, >54, >26, >55 

DRTR >C0, >FR, >32, >45, >63, >5E, >01 , >28 

DRTR )3F, >07, >43, >25, >0C, >2B, >5B, >40 

DRTR >C0, >F7, >0a, >5F, >2F, >5B, >60, >48 

DRTR >3F, >0B, >0B, >0R, >31, >5C, >32, >35 

DRTR >C0, >F2, )1C, >39, >0C, >45, )4B, >60 

DRTR )3F, >13, >63, >63, )63, >61 , >59, >B0 

DRTR >C0, >DF, >21 , >21 , >21 , >21 , >20, >19 

DRTR >40, >01 , >00, >00, >00, >00, >00, >00 

DRTR )80,>00 



1177 : CRLL 6ROM§>0CBa FflC on UDP stack 

117R : CALL 6R0M§>1iaE Rdd 0,5 

117D : CALL GR0Me>1iaE Rdd 0,5 

1180 : CALL GR0M@>11DC Last value from stack and new value on stack 

1183 : MO^^E >0008 TO §>835C FROM GROMe>1041 Number 1 

1189 : XML >0B FRDD 

118B : XML >0E SDIV 

1180 : RTN 



118E ; 


: MOVE 


>0008 TO @>835C FROM GROM@>0FDF Number 0.5 on RR6 


1194 ; 


: DNEG 


e > 835C 


1136 ; 


: XML 


>06 FRDD 


1198 ; 


: RTN 




1199 ; 


: CRLL 


GROMe>0CB8 FRC on value stack 


119C ; 


: CRLL 


6R0Me>11R2 


113F ; 


: XML 


>0D 5MULT 


llfll : 


; RTN 




11R2 : 


; MQUE 


> 0008 TO §)a35C FROM §>834R 


11R7 : 


; XML 


>08 


11R9 i 


; CRLL 


GROM@>0C68 


11flC i 


! MOVE 


>0008 TO §>a34R FROM GROM§>0000(§>8312) 


11B3 ; 


: BR 


GR0Me)11C6 


11B5 ; 


: MOVE 


>000a TO e>835C FROM VDP*fr>83BE 


11Bti ; 


: XML 


>0a 


11BD i 


i MOVE 


)000a TO §>835C FROM 6ROM§>0000(§>8312) 


11C4 : 


1 XML 


>06 


11CB : 


; DRDD 


e>8312, >0008 


llCfl : 


; MOVE 


>0002 TO e>835C FROM 6R0M§> 0000(6)8312) 


11D1 : 


: OCEQ 


@> 8350 6000 


11D5 ; 


1 BR 


GR0Me>11B5 


11D7 ; 


: DRDD 


e>836E. >FFF8 


11DB ; 


: RTN 




11DC ; 


1 CRLL 


GROM§>0C6a FRC on VDP stack 


11DF ; 


: DRDD 


§>83BE.>FFF8 


11E3 ; 


1 MOVE 


>0008 TO §>a34R FROM VDP^f>83BE Number before last on FRC 


11E9 ; 


; MOVE 


)000a TO VDP*t>836E FROM VOP§>0008(§>83BE) Last number on 


11F1 ; 


; RTN 




11F2 ; 


; MOVE 


>0008 TO e>835C FROM VDP*>83BE 


11F8 ; 


; BR 


GR0Me>11D7 


Greatest integer: 


11FR ; 


: 5T 


e>8375,§>834fl 


11FD ; 


; ORBS 


e>834R 


11FF ; 


; 5T 


§>a377,§>a34R 


1202 ; 


1 CLR 


@>a376 
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1204 


: CGE 


§>6377, >40 


1207 


: BR 


6R0Me>1247 


1209 


: CGT 


§>8377, >45 


120C 


: 85 


GR0M§>123D 


120E 


: 5T 


§> 8355, §> 8377 


1211 


: SUB 


§>8355, >46 


1214 


: ST 


§> 8354, §> 8355 


1217 


: CLR 


©>8356 


1219 


: ST 


§>83S7, >52 


121C 


: RUD 


§> 8357, §> 8355 


121F 


: OR 


§> 8356,*) 8357 


1223 


: CLR 


*>8357 


1226 


: INC 


§>a357 


1228 


: INC 


§>8355 


1220 


: BR 


GR0Me)121F 


122C 


: C6E 


@>8375, )00 


122F 


: BS 


6R0Me>123D 


1231 


: CZ 


e>8356 


1233 


: 85 


GR0M§>123D 


1235 


: ROD 


§>8354, >07 


1238 


: XML 


>02 


123R 


: B 


GR0Me>1244 


123D 


: C6£ 


§>a375, )00 


1240 


: BS 


GR0M§>1244 


1242 


: DNE6 


§>834R 


1244 


: CLR 


e>8354 


1246 


: RTN 




1247 


: DCLR 


§>834R 


1249 


: CGE 


e>8375, >00 


124C 


: 85 


GRQMe> 1252 


124E 


: DST 


e>834R, >BFFF 


1252 


: DCLR 


e>834C 


12b4 


: DCLR 


§)834E 


1256 


: DCLR 


@ > 8350 


1258 


: BR 


GR0M@>1244 


Bit 


^eversa L 


rout ine : 


125fl 


: MOyt 


)0040 TO @>8300 FKUM GR0M§>1263 


1260 


: XML 


>F0 


1262 


: RTN 




Prog 


"am for 


bit reversal routine: 


1263 


: DRTR 


>83, >02, >C0, >60. >83, )4R, >C0, >fl0 


126B 


: DRTR 


)83, >4C, >D7. >E0, >a3, >E3, >D7, )C1 


1273 


: DRTR 


>02, >61 , )40, >00, >D0, >EF, >FB, )FE 


1278 


: DRTR 


>02, >0b, >00. >08, >09, >14, >0R, >13 


1283 


: DRTR 


>17, >02, )02, >24, >80, >00, >06, >05 


128B 


: DRTR 


)16, )F9, >D7, >E0, >83, >E3, )D7, >C1 


1293 


: DRTR 


>02, )41 , >3F, >FF, >DB, >C4, >FF, )FE 


1298 


: DRTR 


>05, >ai , >06, >02, >1B, >E6, >04, >5B 


12R3 


: DRTR 


>01 


12R4 


: DRTR 


>B1 


12R5 


: DRTR 


> 15 


12R6 


: TEXT 


': REVIEW MODULE LI8RRRY:' 


1288 


: DRTR 


>00 Empty space till 


130F 


: DRTR 


)00 


DSR 


labLe : 




1310 


: DRTR 


>1318 Next DSR 


1312 


: DRTR 


>1326 Entry point 


1314 


: DRTR 


>03 


1315 


: TEXT 


' :CS1 : ' 



Execute program f rom GROM 



>8302, MOV §>834R,6, MOV §>834C,1 
MOVB e)83E3.iH5, M0V8 1,*15 
ORI 1,>4000, MOVB e>FBFEC15),3 
LI 5,>0008, SRL 4,1, SLR 3,1 
JNC , RI 4, >8000, DEC 5 

JNE , MOVB e>83E3,*15, MOVB 1,*15 
RNDI 1,>3FFF, MOVB 4,e>FFFE(15) 
INC 1, DEC 2, JNE , 8 *11 
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1318 : DRTfl >0000 

131R : DOTR >132C 

131 C : DflTfl >03 

131D : TEXT ' :C52: 



Subprogram table: 
1320 : DPTQ >0000 
1322 : DRTR >1573 

1324 : DHTR >01 

1325 : TEXT ' >03' 



Subprogram writes text 



Casset 
1326 : 
132R : 
132C : 
1330 : 
1333 : 
1336 : 
133C : 
1344 : 
1347 : 
1349 : 
134B : 
134D : 
134F : 
1351 : 
1353 : 
1355 : 
1357 : 
1359 : 
135B : 



te D5R; 
U5T 
BR 
DST 
ST 

D5UB 

RND 

MOVE 

DST 

CR5E 

BR 

BR 

BR 

BR 

BR 

BR 

BR 

BR 

BR 

BR 



@>ti366, >0016 
6ROM§>1330 
@>8366, >0017 

@>a35fl,e)a3/3 

e ) 8356, e> 8354 



CS1 



CS2 

>a35fl Subs tack 

Compute address Length byte (FRRGEJ 
UDP@>FFF7(@>8356}, >1F Clear PRB error 
>000fl TO @>834R FROM VDP@>FFF6 (6)8356) PRB on FRC 
@>835E,e)834C Buffer address 



§>834R 

GR0Me>13a7 

GROM§>140E 

GR0M§)13CF 

GR0M@>13Dfl 

GR0M@>13a7 

GR0M§>13F2 

6R0Me>1489 

6ROM§>140E 

GR0M§>135D 

6ROMe>1380 



Test on I/O op code 

Open 

Close 

Read 

Write 

Restore 

Load 

Save 

Delete 

Scratch record 
Status 



Scratch record 

135D : OR VDP@>FFF7(@>8356) , >60 Error illegal operation 

1363 : CRLL 6RCMe>1549 CRU reset 

1366 : CRLL GR0M@>1516 Scroll 

1369 : CLR @>a37F 

136B : ST @>a373,e>835R Old substack 

136E : CRLL GROMe>0012 Return over GSR return 



OR VDPe>FFF7C§>a356) , >C0 Device error 

CRLL GR0Me>14R9 Write text 

DflTfl >04 "Press Cassette Stop" 

CRLL GR0Me>152a Scan keyboard 

BR GR0Me>1363 End 



Status 
1380 : CLR 
1385 : BR 



VDPe>FFFC(e>a356) Status=>00 
6R0Me>1363 End 



Open , 


Restore 




1387 


: CZ 


@>a34E 


Logical record length 


1389 


: BR 


GR0M§>1391 


138B 


: ST 


VDP§>FFFfl(€ 


1)8356), >40 Decimal 64 default value 


1391 


: RDD 


VDP@>FFFfl(@>8356), >3F 


1397 


: RND 


VDPe>FFFn(e>63S6) , >C0 Round to integer number 64 


139D 


: CLOG 


e>834B, >15 


Check flag input 


13fl0 


: BS 


6R0Me>13B5 


1302 


: CEQ 


e>8367, >17 


C52? 


13R5 


: BS 


GR0M§>135D 


Illegal operation 


13R7 


: CLOG 


e>834B, >13 


k/ariable input 


13flR 


: BR 


GR0M§>135D 


Illegal operation 


13RC 


: CRLL 


GROM§>1503 


Turn on motor, rewind cassette 
Press cassette play 


13RF 


: CRLL 


GR0M§>14fl9 


13B2 


: DflTfl 


>0E 


13B3 


: BR 


GR0M§>13C1 
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13B5 


: CLOG 


§>834B, >02 


1388 ; 


: BS 


BR0Me>135D 


13BR ; 


: CPLL 


GROM§)1503 


13BD : 


; CALL 


GR0M@>14R9 


13C0 : 


: DRTO 


>0C 


13C1 ! 


; CRLL 


bKaM§>152a 


13C4 ; 


; CRLL 


GR0M©>1549 


13C7 : 


; CRLL 


GR0M§>1562 


13CP ; 


; CRLL 


GR0M§>155t 


13CD ; 


; BR 


GR0M§>136B 



Output 

Illegal operation 
Turn on motor, rewind 
Text record 

Keyboard scanning 
Turn on motor 
Set pointer, wait 
Turn off motor 
End 



Read 

13CF : 5T ©> 8362,) 05 Read 

13D2 : ST VDP§>FFFB{@>83563 ,@)a34E Record length 

13D8 : BR GR0M§>13DD Execute 



Write 






13DR : 


ST 


e>8362,>04 Write 


13DD : 


CLR 


§>835C 


13DF : 


ST 


e > 835D , VDPe > FFFH C § > 8356 ) 


13E5 : 


CRLL 


GR0M§>1S49 Set CRU, turn on 


13E8 : 


I/O 


§>835C. 6)8362 Output 


13EB : 


BS 


6R0Me)1371 Error 


13ED : 


CRLL 


BR0Me)155E Turn off motor 


13F0 : 


BR 


6R0M§>136E End 



Load : 








13F2 ; 


; CEQ 


e>8367, )17 


CS2? 


13F5 : 


; BS 


GR0Me)135D 


Illegal operation 


13F7 : 


; CRLL 


GROM§)1503 


Turn on motor, rewind 


13FR : 


; CRLL 


GR0M§>149F 


Text play with tone 


13FD : 


; DRTR 


>00 


Reading 


13FE ! 


; CZ 


e>83Ct 


Number of sound byte 


1401 ; 


; BR 


GR0M@>13FE 




1403 : 


; I/O 


e>835C. >0b 


Read data block 


1406 ; 


; BS 


GR0Me)145b 


Error 


1408 : 


; CRLL 


GR0M§>14R9 


Text data o.k 


140B ; 


; DRTR 


)18 




140C : 


; CLR 


@>8353 





Close , 


Delete 




140E : 


CRLL 


6R0M@)155E 


Turn on motor 


1411 : 


CRLL 


GR0M§>14R9 


Text stop 


1414 : 


DRTR 


>04 




1415 : 


CRLL 


GR0Me)152a 


Keyboard 


1418 : 


CZ 


@>8353 


Load flag 


141R : 


BS 


6R0Me)1363 


End 


141C : 


CEQ 


VDP§>FFFB(@>8356J , )06 Save? 


1422 : 


BR 


GR0Me>1363 


End 


1424 : 


CEQ 


@>8367, )1/ 


CS2? 


1427 : 


BS 


GRQMS) 1363 


End 


1429 : 


CRLL 


GROMe> 14fi9 


Text check tape 


142C : 


DRTR 


>10 




142D ; 


5CRN 






142E : 


BR 


GR0Me>142D 


No key 


1430 : 


DST 


§)837E, >171B 


YPT. XPT 


1434 : 


SI 


e>837D,@>a375 


Write key value 


1437 : 


RDD 


@)837D,@>8352 


Rdd offset 


143R : 


CEQ 


e>83/5, >4E 


N 


143D : 


BS 


6R0M@)1363 


End 


143F : 


CEQ 


@>a3/b. )59 


Y 


1442 : 


BR 


6R0Me)142D 


None of both keys 


1444 : 


CRLL 


GROM@>1503 


Turn on motor, rewind 


1447 : 


CRLL 


GR0Me>149F 


Text checking 


144R : 


DRTR 


>0a 


144B : 


CZ 


@>83CE 


Wait for time 
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1 A/xP 
I mmC 




r;RnMa s i aao 




l4bl3 


ltd 
I /□ 


@>635l, >Bo 


Check 


1453 


BR 


uROMB) 1408 


End with data o.k 






Q > oJ/L , >Kl 1 


ijrL Status byte 


1 Al^R 

1 *oo 


RR 


UPsUnO I40J 


1 mDH 


TDI 1 




T CC 

1 urn oft fnotor 




roi 1 


uixUriG J 1 MHD 


Tex t en ror 


1 MOkI 


UH 1 H 






l*tO 1 


BR 


RQHMA \ 1 ^RQ 
UrCUrlB) I40H 




1 MCJO 


roi 1 

V-HL.U. 


npriMft V -1 cap 


T ec 

lurn oft motor 


1 MOD 




GR0M@>14R9 


Text no data 




nnxn 

UH 1 H 


>1fl 




l*tDH 


\-C.\J 


VDP§>FFF6(§>8356), >0B Save? 




DC 

Ob 


r^PnMA \ •! /17A 
UKUnC) I4/0 








ripnM A \ 1 /iPP 
L3r\UriC> I'JrC 


rress K to read 


1Z7e: 


UH 1 H 


\ '^A 




i*t/o 


ore 






IH/O 


roi 1 


GR0M@>14FE 


Press R to rernrd 


1 H / D 


UH 1 H 


)1E 




147C 


TDI 1 


GR0M@>14FE 


C to check 


1 *t / 1 


nOTQ 
UH 1 H 


>1C 








GR0M§>14FE 


E to exit 


1483 


DOTR 


>16 




1484 


CRLL 


GR0M§>1528 


Scan keyboard 




BP 


GR0M@>133C 


From beginning 










14AR 


LHLL 


6ROM§>1503 


Turn on motor, rewind 




roi 1 

LHLL 


GR0M§>1499 


Text press record 


1 MOP 


nOTQ 
UH 1 H 


>06 


Recording 


1490 


CALL 


GR0M§>1562 


Wait and set pointer 


1493 


I/O 


e>835C, >04 


Save 


1496 


B 


GROM§>140E 


End with scanning 



1499 


CRLL 


GR0M©>14R9 


Text press record 


149C 


DRTR 


>0C 


149D 


BR 


GR0M§>14R3 


Go on 


149F 


CRLL 


GRQMe>14R9 


Text play 


14R2 


DRTR 


>0E 


14fl3 


CALL 


GR0Me>152a 


Scan keyboard 


14RB 


CRLL 


GR0M§>1549 


Turn on keyboard 


14fl9 


MOVE 


>02C0 TO VDPe>0000 FROM yDP§>0040 ScroL 


14B0 


FMT 






14B1 


... YPT=>1B 




14B3 


... XPT=>00 




14B5 


. . . BIRS=(e>8352) 




14B7 


... 20' : : ' 




14B9 








14BD 




ID': :' 




14BF 


... END FMT 




14C0 


CLR 


e>83B2 




14C2 


FETC 


§>a363 


Fetch data for text 


14C4 


DST 


@)83B4, >02E4 


Rddress t^OP 


14C8 


ST 


@>834R, >03 


Subprogram name 


14CB 


DST 


e>8354, >0001 


Length name subprogram 


14CF 


ST 


§>836D, >0R 


Data GSRLNK 


14D2 


DCLR 


e>83D0 


GROM search pointer 


14D5 


CRLL 


GROMd>003D 


GSRLNK (write text) 


14D8 


CZ 


e>6375 


Keyboard input nessesary? 


14Dfl 


BS 


6R0M§>1513 


No, end with tone 


14DC 


DST 


@>837E, >171B 


Set YPT and XPT 


14E0 


FMT 




14E1 




BIRS=(§>8352) 




14E3 




' :CS1:' 
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14E7 


... END FMT 




14E8 


CEQ 


e>fl3B7, >1B 


C51? 


14EB 


BS 


6ROMe>14F0 


Yes, jump 


14ED 


INC 


VDPe>02FD 


Write 2 


14F0 


CEQ 


©>8375, >FE 


Flag >FE (R to read) 


14F3 


B5 


GRDMe>1513 


End 


14F5 


D5T 


§>83S2, >0012 


Then press enter 


14F9 


CRLL 


6R0Me>1516 


Scroll 


14FC 


BR 


GR0M§>14C4 


Write text 


14FE 


CRLL 


5R0M§>151B 


Scroll 


1501 


BR 


GROMe>14C0 


Write text 


1503 


CRLL 


GR0Me>1549 


Turn on motor 


1506 


CRLL 


6R0M§>14R9 


Write text 


1509 


DRTR 


>0R 


Rewind 


1500 


CRLL 


6R0M§>1528 


Keyboard scanning 


150D 


CRLL 


GR0M§>155E 


Turn off motor 


1510 


D5T 


@>835C,e>8350 




1513 


. B 


6ROMe>0034 


Rccept tone CTrick with RTN!) 



1516 : MOVE >02E0 TO VDP@>0000 FROM VDP§)0020 Scroll one line 

151D : FMT 

151E : ... YPT=>17 

1520 : ... XPT=>00 

1522 : ... BIfl5=(e>8352) 

1524 : ... 20' : : ' 

1526 : ... END FMT 

1527 : RTN 



1528 


5CRN 




1529 


BR 


6R0Me)1528 


1528 


ST 


@ > 8358, @) 8373 


152E 


5T 


@>8373,e>835fl 


1531 


CEQ 


e>8375, >45 


1534 


BS 


GR0M§>1371 


1536 


CEQ 


e>8375, >43 


1539 


BS 


GR0Me>1444 


153B 


CEQ 


@>8375, >52 


153E 


BS 


6R0M@>133C 


1540 


5T 


e > 8373, §> 8358 


1543 


CEQ 


@>a375, >0D 


1546 


BR 


6R0Me)1528 


1548 


RTN 





Keyboard scanning 

Stack pointer 

Old substack pointer 

E Exit 

C Check 

R Record or Read 

Old substack pointer again 
Enter 

None of the keys 



1549 


ST 


e>836C, >FF 


Turn on motor 


154C 


DST 


@ > 8368, @> 8366 


CRU basis address 


154F 


DST 


e>836fl,>016C 




1553 


I/O 


@>8368, >03 


CRU output 


1556 


CLR 


§>8379 


yOP interrupt timer 


1558 


C6T 


@>8379, >1E 




155B 


BR 


GR0Me)1558 


Time delay 


155D 


RTN 







155E 


CLR 


@>836C 


Turn off motor 


1560 


BR 


GR0M@>154C 


Set CRU 


1562 


CLR 


e>8362 




1564 


CLR 


§>8379 




1566 


CGT 


§>8379, >3C 


VDP interrupt timer 


1569 


BR 


6R0Me>1566 


Loop 


156B 


INC 


©>8362 




156D 


CGT 


@>8362, >0R 


Waiting loop 10 times 


1570 


BR 


6R0Me>1564 


1572 


RTN 







Subprogram, write text >8364=VDP address, >8358 Pointer to text 

1573 : MOVE >0002 TO e>8358 FROM GROM§)1SR0(§>8362) Fetch pointer to text 
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MOVt >0002 TO @>a362 FROM GROMe)B000(e>a358) First 2 bytes in >8362 

5T @ > 8375, e> 8363 ASCII key 

D5RL @>8362,>0008 Number bytes 

MOVE e>8362 TO VDP**>8364 FRpM 5ROMe>0002(@>6358) Write text 

DnOD @ > 8362, §> 8364 New address <8362 

ODD VDP^t) 6364, @) 8352 Add screen offset 

DINC @>8364 Increase address 

DCGE e > 8364, §> 8362 End ? 

BR 6R0Me>1592 

CALL GROMe>0012 End over GSR return 



Tov f 










mod 


UH 1 H 


V 1 crci - 

/ 1 Dl_kJ - 


} xi/ 


, > 1(1(9, :r\CHLIllNo: 




nQTD 

UH 1 H 


vicrq _ 

/ 1 - 


/ ID 


) luu , : Cnr\Ur( Uc 1 Cl_ 1 ilN UHIH: 


15A4 


DATA 


>15E1 = 


' >13 


>FF,: PRESS CASSETTE STOP:' 


15A6 


DATA 


>1SF6 = 


' >09 


, >00, : RECORDING: ' 


15A8 


DATA 


>1601 = 


' >08 


>00, : CHECKING: ' 


ISA A 


DATA 


>160B r 


' >14 


, >FF, : REWIND CASSETTE TAPE: ' 


15AC 


DATA 


>1621 = 


' >15 


III 1 . r r\C33 1— H33C 1 IC r\C.L.UrCU : 


15AE 


DATA 


>1638 = 


' >13 


iPF .PRP^c: rOc;^FTTP PI QV . ' 


15B0 


DATA 


>164D = 


' >14 


• n-iPrf TDPP np m'»'3. < 

/ xi'O , : LnCLIs 1 Mr C V T Urv V*) ( . 


15B2 


DATA 


)1663 = 


• >10 


>DICI .TMPKl PPPQC PMTPP . ' 
) Kllu , : 1 nciN r r\C33 CIN I Cr\ : 


15B4 


DATA 


>167S = 


' >0F 


sPP • PPPc;c: p T n PPOn • ' 


15B6 


DATA 


>1686 = 


' >0F 


' xi'O , : 1 rvQDD C 1 U CA 1 1 : 


15B8 


DATA 


>1697 = 


' >07 


> luu , : UH 1 H Uls. : 


15BA 


DATA 


>16A0 = 


' >1b 


\Dioi .pppnp kin noTG pniiKin. > 


15BC 


DATA 


>16B7 = 


' >10 


> Vi\a , : rrCC33 L 1 U LncLN : 


15BE 


DATA 


>16C9 = 


' >11 


vCin • PRF^c; p Tn pprnpn. ' 
^iliiu, : I r\CD3 w lu r(CL.ur(u: 


16DC 


DATA 


>00, >00, >00, 


i Din 


Keyboard tabl< 


3 joysticks 




16E0 


DATA 


>00, >00, 


>00, 


CICI 

lUK) 


16E4 


DATA 


>00, >00, 


>00, 


rluKI, /lulu, /lului lYlH , >IC)M 


16EC 


DATA 


>04,>FC. 


)04, 


^Icllu, >lula, iVm , >rL, >ciH 


16F4 


DATA 


>FC,>FC, 


>FC. 


00, >00, >00, >00, >04 


16FC 


DATA 


>00, >FC, 


>00, 




Keyboard tabL( 


2 lower 


case 




1700 


DATA 


>FF,>FF, 


>FF, 


PP 
rr 


1704 


DATA 


>FF, )0D, 


>20, 


"^n \7A \77 \7'a \'>0 


170C 


DATA 


>39,>6F, 


>6C, 


OP vca vCC \CA v'a'a 


1714 


DATA 


>38, >69, 


>6B, 


, > /b , > /<s: , >bb , > 34 


171C 


DATA 


>37, >75, 


>6A. 


bU , >b<: , > /4 , >b/ , >db 


1724 


DATA 


>36,>79, 


>68, 


bt, >/H, >/1 , >b1 , >d1 


172C 


DATA 


>30, >70, 


>3B. 


2F 


Keyboard table 


2 SHIFT 






1730 


DATA 


>FF, )FF, 


>FF, 


FF 


1734 


DATA 


>FF,>0D. 


)20, 


2B, )58, >57, >53, >40 


173C 


DATA 


>28, >4F, 


>4C. 


3t, >43, >4b, >44, >2d 


1744 


DATA 


>2A, >49, 


>4B, 


3C, >5b, >52, >46, >24 


174C 


DATA 


>26,>55, 


>4A, 


4D, >42, >54, >47, >25 


1754 


DATA 


>5E,)59, 


>48, 


, >bH , >b1 , >41 , >Z1 


175C 


DATA 


>29,>50, 


>3A, 




Keyboard table 


3 FCTN 






1760 


DATA 


>FF, >FF, 


>FF. 


FF 


1764 


DATA 


>FF. >0D, 


>20, 


05, >0A, )7E, >0a, >04 


176C 


DATA 


>0F, >27, 


>C2, J 


B9, >60, >0B, >09, >07 


1774 


DATA 


>06, >3F, 


>C1 , 


B8, >7F, >5B,>7B,>02 


177C 


DATA 


>01 , >5F, 


>C0, 


C3, >BE, >5D, )7D, >0E 


1784 


DATA 


>0C, >C6, 


>BF, 


C4,>5C,)B3,>7C,)03 


178C 


DATA 


>BC. >22, 


>BD, 


BA 


Keyboard tabl( 


2 CNTRL 






1730 : 


DATA 


>FF, >FF, 


>FF, 


FF 


1734 : 


DATA 


>FF, >0D, 


>20,; 


9D, >98, >97, >93, >B2 


179C : 


DATA 


>3F, >8F, 


>8C, 


9B, >83, )85, >84, >B3 


17A4 


DATA 


>9E, >89, 


)8B, ) 


80, >36, >92, >86, >B4 
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I7RC : DRTR 

I7B4 : DRTR 

I7BC : DRTR 
[eyboard table 

I7c0 : DRTR 

I7C4 : DRTR 

I7CC : DRTR 

I7D4 : DRTR 

I7DC : DRTR 

I7E4 : DRTR 

I7EC : DRTR 

I7F0 : DRTR 

I7F4 : DRTR 

I7FC : DRTR 



B7, >35, )8R, >aD, >B2, )94, >87, >B5 
B6, )99, >8a, >aE, >3R, >91 , >ai, >B1 
B0. >90, >9C, >BB 

mode 1 and 2 
FF,>FF,>FF,>FF 

FF, >FF, >FF, >FF, >00, >04, >02, >07 
09, >0B, >0i:, >0D, >0E, >05, >03, )0a 
0a, >05, )03, >0£, >0D, >0B, )0C, )09 
07, >04, >02, >00, >10, >0B, >11 , )0R 
13, >12, )01 , >0F, >0F, >12, >01 , >13 
0fl, )0B, >11 , >10 



00, >00, >00, >00 

00, >00, >00, >00, >00, >00, >00> >00 
00, >00, >D1 , )FF 
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HEXDUMP of GROM (>00B0 bis >17FF) 



0000(5 


np02 


0000 


0000 






1 J^KI 


OlOiO^Oi 








001 06 


43D9 


4439 


49fl5 








AAAQ. 


AAAO 


C 091 C 


C OCOFOI 


00206 


404F 


51Ffl 


4C7E 




MLIDIu 




4FFR 


4FFn 
MtrU 


§0Q L~MUM N'N N 


00306 


4F5B 


4F7C 


43CB 








^OAA 


I1k)3 


OCOIC c 


M RZO 


00406 


2844 


0537 


B460 


0000 


1 100 


43HF 


RPIRP1 
OVDlLJ 


7RA7 


^ n 7 * 

tu / 


C p 


00506 


a0CE 


BE8F 


1100 


70BE 


6100 


9FBE 


8100 


BFBE 


p 




00606 


8100 


OFBE 


8100 


FFBF 


72FF 






mci4 




r ~9 


00706 


4E86 


0035 


0071 


ibi 1 %ytj 






04luci 


33luU 


N 5 q 


5 > 5 


00806 


0B74 


0035 


0008 


60C2 






PIAFR 
ClOrD 


Iu^lu3 


t 5 




00906 


BF03 


1001 


F602 


03BE 


0^1 A 




ICI3u*T 


DICIRF 






00FI06 


0302 


F602 


03BE 


KJtJILl 1 


FRW9 




UJ ID 


DI'PFC 
IcIiirD 






00B06 


0203 


0603 


CB86 


R000 


BF70 


1 kJOC 


RCI7C1 


□OAF 




P P 
L p pp 
p9 


00C06 


P1000 


4009 


3900 


0101 




ARRPI 

ODDU 


7CIOCI 


7DI7DI 


@ 9 


00006 


0670 


4040 


BBBE 




luOOw 




\0lO\0 1 


c) llu^ 


p§@ 


00E06 


4186 


R000 


350F 


FFR0 


lu 1 rilLj 






H30IU 


H b 


1 


00F06 


0455 


3102 


00R9 


0004 


0031 




DAPIA 
HOuO 


DIQ4r 
Iu31l_ 


U 1 


1 r L 


01006 


0720 


BE7E 


05BC 


747E 




7F41 


1030/ 


7FRF 


t~ 


~R ~ 


01106 


7560 


08C1 


E075 


FB01 


1400 




F07R 


FRm 

■ Del 1 


U ' U 


u 


01206 


1CFB 


RB7E 


12fl2 


7508 


0675 


E041 


1206 


7Fm 

/ C.KI3 


~ u 


u R 


01306 


41 0F 


877E 


08R4 


6E02 


0102 


0^Rr 


^7^4 


PIRPIR 






01406 


9C02 


0708 


09R7 


8F1B 


5245 


414^ 

*t 1 MM 


33<^U 


RCIR"? 
3103^ 




RERDY-PR 


01506 


4553 


5320 


414E 


5920 




^R7I3 

33^IlI 


R44F 


'?DI4'7 


ESS ANY 


KEY TO B 


01606 


4547 


494E 


■ WW 1 


npii 1 

CJIu 1 1 


Q1PA 




3 llulu 


lOH^ 


E5IN 1 


C 1 


01706 


C404 


3031 


0000 


R16R 






1CIDIR 


IlI3/3 


1 i 
U m 


C y 


01806 


8780 


0088 




LJUIlJM 


Kir 1 u 


R1 AA 
□ lOu 


RF7^P 
Dr / 1 


CIDIADI 


a r 


01905 


BFS0 


7201 


9F0F 


1 rl LJU 


SKI / u 






CIOIAF 

lukSor 


r 


s r r 


C!'1R06 


8000 


418C 


3900 


0101 


04^in 


AR74 


PI7FF 


171 "^^l 


R 9 


M t R 


01B06 


RC0B 


03CB 


0720 


BE72 


FFRF 


RDCIR 


ARRr 
ODDl- 


ARAOl 


r 


m L 


01C05 


FB31 


001 E 


R400 




RFACI 


FRCIzi 


3 IluK) 


1FQ^ 
ICH*t 


1 


1 


01D06 


2060 


0086 


5866 


■^<30R 






l.C,33 


inR1 


X Y 


Y Y a 


01E06 


EDD4 


E400 


58E4 


2056 


41EF 


0501 


nQ4i 


Fnei4 

nu3*t 


X X 


o n 
H H 


01F06 


7287 


9072 


9472 


BF90 


7212 


R190 


RrriR 


AFnn 


r r r 


r I 


02006 


00Rn 


4224 


BD56 


8FD0 


066F 




94 R4 

3*f 


77HF 


B$ X 


Xb$ r 


02106 


9072 


FFFF 


9472 


0090 


79RA 




RRRA 

DU30 


rF7n 


r r 


rX I X > 


02206 


0058 


4209 






/ cXir 




"^AQR 
^*t3D 




XB r 


r b$ r 


02305 


0212 


R142 


4031 


KIIUw 1 




■3IJUD 


33HH 


1 1 DO 


Bei 


Y- Y R 


02406 


3300 


0101 




RAOITI 
uOHIu 


\Xi£. 




t933l_ 


Yicxi*\ 


9 N 




02505 


0506 


3C02 


0708 


09R0 


9E04 




M333 


33i O 




PRESS 


02605 


3100 


11R0 


2604 


9231 


0000 


R066 


04Q3 
io*trl3 


RFR? 


1 ( 1 


h R 


02706 


00E4 


BE58 


308E 


6C42 


9008 


FFPI? 


lui *t3 


4FR'^ 
1^33 


X0 LB 


INS 


02805 


4552 


5420 


4341 


5254 




*t*t*f / 


4RFR 


4!?Fr 


ERT CRRTRI06E B 


02306 


9058 


BCB0 


5258 


9552 


3100 


0'^RPI 


R7CI<^ 


*i3H3 


X RX R1 R I 


02R06 


5200 


0400 


6R90 


7296 




RrRPi 


/ C30 


77D'^ 
/^H3 


R j r 


r \ r r 


02B05 


6n00 


0486 


5E8E 






xixiti \ 


RFrF 


7nDIOI 


i " \b 


5 } 


02C05 


6091 


6P34 


5EB0 


52CF 


7000 




UU33 


(^npi1 


i i4" R 


) iB~3 


02005 


5F00 


006R 


916R 






OlOtOIOl 


DHH3 


R7CICI 
34t3iu 


1 i2" R i R 


02E06 


3002 


/ CJuiu 






■ ■3CID 


lclJ/3 


33laU 


la iU1 


: r b C 


y3 


02F06 


0440 


8674 






F^OR 
r*(HO 


/3J 1 


1-0/3 


Ot-'l3 


M t B 


u1 ulC 


03006 


0706 


0303 


0502 






□4Rr 


/33^ 






Lu I 


03105 


6C02 


BC78 


90BC 


946C 




3IUDL. 


333U 


RF7^7 


L X L I 


\ L \ r 


03206 


9E80 


8E78 


632F 


BO80 


60CF 


7npiPi 

/ UJuv 


31.H3 


3/ 33 


xc/ 


) \C73 


03305 


0002 


8080 


nana 




7RAF 


AOIPF 


^4333 


Lr /lo 


\ 


C9 p 


03405 


1000 






7RQ7 


Ktiaior 


rr Jm 


ROIOF 


llctlala 


C5 p 


4 


03506 


RF0F 


FF86 


0035 


005F 


01 Pin 


33luKI 


3U01lI 


A4CIDI 


5 o 


5 < 


03605 


8674 


3500 


1Ffl3 


81fl3 


AnA7 


APIA? 


AF7A 


R'^7A 
D3/0 


t5 


xcx 


03705 


3573 


BD00 




HFF^ 






3 llulcj 


OI'7'PA 
lo^^O 


s 


B'1 ( 


03805 


6000 


0626 


004*^ 






D<j3<1 


3*f/3 


QnQO 
OU3cl 


^ ( C 


) c s 


03905 


7342 






DIuMH 




iTIDIDF 


Acinoi 




sB 1 J 




03(305 


BE80 




OODU 




0101017 


F0IDI1 


Anntni 




e J3 


J 


03B0Q 


R34R 


0008 


MWwKJ 








A'^DA 
*f3H*t 


ClOIDF 


J 


C 


03C05 


8000 


0870 


BE60 


021F 




□4RF 


RAPI4 


7RFR 
/3rD 


p 


X u 


03005 


5800 


00BF 


5604 


8043 


CF68 


6086 


54BC 


55B0 


X X c 


m T U 


03E06 


5686 


58B0 


5256 


9152 


0458 


5563 


F7D6 


B052 


V X RV R 


XUc R 


03F05 


2E63 


F790 


5643 


E68E 


5664 


35BC 


5556 


0255 


.c XC : 


Xd5 UX U 
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0400G 


0864 


3586 


5487 


8000 


3156 


3454 


4nB0 


56R1 


d5 T V4TJ V 


04106 


5654 


0F19 


9473 


BD30 


7380 


FR0F 


1044 


2334 


yj s s D) 


04206 


73BD 


9073 


9072 


9672 


008F 


80D0 


441B 


BO60 


s s r r D 


04306 


Ffl30 


7396 


73D4 


0000 


0136 


73BD 


80FR 


3073 


s s s s 


04406 


3673 


0005 


284C 


0528 


4E05 


2010 


8060 


20F0 


s (L (N 


04506 


0EF3 


85F8 


F717 


1717 


1717 


1717 


1717 


1717 




04606 


1706 


0301 


0B0C 


0D0F 


0402 


0D08 


0E05 


0S0R 




04706 


0627 


2722 


2206 


BFDF 


FF80 


0592 


0001 


9F00 


linn 


04806 


06BF 


DFFF 


8020 


900P 


01 9F 


000n 


3139 


3831 


1981 


04S06 


2020 


5445 


5841 


5320 


434E 


5354 


5255 


4D45 


TEXAS IN5TRUME 


04n06 


4E54 


5348 


4F4D 


4520 


434F 


4050 


5554 


4552 


NT5HQME COMPUTER 


04B06 


0000 


0000 


0000 


0000 


2020 


2020 


2020 


0020 




04C06 


4848 


4800 


0000 


0000 


0048 


FC48 


48FC 


4800 


HHH H HH H 


04D06 


103C 


5038 


1478 


1000 


C0C4 


0810 


2040 


8C0C 


<P8 X § 


04E06 


6030 


3060 


6034 


6874 


0810 


2000 


0000 


0000 


• • • t 


04F06 


0810 


2020 


2020 


1008 


4020 


1010 


1010 


2040 


§ @ 


05006 


0000 


4830 


CC30 


4800 


0000 


1010 


7C10 


1000 


H0 0H 1 


05106 


0000 


0000 


0030 


1020 


0000 


0000 


7C00 


0000 


1 


05206 


0000 


0000 


0000 


3030 


0004 


0810 


2040 


6000 


00 e 


05306 


3844 


4444 


4444 


4438 


1030 


5010 


1010 


107C 


80D0DDD8 0P 1 


05406 


7884 


0408 


1020 


40FC 


7884 


0438 


0404 


8478 


X @ X 8 X 


05506 


0C14 


2444 


84FC 


0404 


F880 


60F8 


0404 


8478 


$0 X 


05506 


7880 


80F8 


8484 


8478 


FC04 


0408 


1020 


4040 


X X §6 


05706 


7884 


8478 


8484 


8478 


7884 


8464 


7C04 


0478 


X X XX 1 X 


05806 


0030 


3000 


0030 


3000 


0030 


3000 


0030 


1020 


00 00 00 


05306 


0008 


1020 
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12606 0FF0 0063 

12706 E3D7 CI 02 

12806 1400 1317 

12305 E3D7 CI 02 

^^mb E604 5B01 

12B05 554C 4520 

12C06 0000 0000 

12D06 0000 0000 

12E0G 0000 0000. 

12F06 0000 0000 

13006 0000 0000 

13106 1318 1326 

13206 0000 1573 

13305 BCSfl 7305 
13405 EFFF F656 
13505 Dfl53 8753 
13606 F756 6006 
13706 12B6 EFFF 
13806 86EF FFFC 

13306 4002 EFFF 
13006 73B5 D667 
13B06 1403 0E53 
13C06 0C06 1528 
13D06 6205 BC^F 
13E05 5DEF FFFO 
13F06 536E D667 
14006 CESS FEF6 
14106 5E0B 1403 
14206 5606 5363 
14306 BF7E 171B 
14406 7553 542D 
14506 F65C 0654 
14606 0254 6006 
14706 7478 0614 



334E 


0313 


5B33 


0041 


01 3B" 


2529 


1041 


2C61 


3F23 


1E58 


2CBF 


F562 


1C56 


11BE 


FF08 


262C 


2C80 


0040 


1361 


4858 


2E40 


4030 


0734 


3640 


Ffl2C 


4310 


0000 


FD3B 


5803 


0B46 


D251 


4B23 


1F06 


C03B 


4003 


4B06 


00C0 


FE35 


3312 


55C0 


F032 


4563 


40C0 


F708 


5F2F 


35C0 


F21C 


330C 


60C0 


DF21 


2121 


0080 


0006 


0C68 


0008 


5C10 


410F 


835C 


0F06 


0006 


085C 


4O0F 


0806 


C635 


0008 


5CB0 


0F06 


0312 


0008 


0051 


B503 


6EFF 


0008 


4OB0 


6E35 


085C 


B06E 


51 D7 


D277 


4052 


47CE 


BC54 


5586 


56BE 


9057 


9057 


9055 


3D02 


5407 


0F02 


8654 


0067 


40D2 


874E 


8750 


5244 


02C0 


6083 


4RC0 


6140 


00D0 


EFFB 


0202 


2480 


0006 


413F 


FFDB 


C4FF 


B115 


5245 


5649 


4C43 


4252 


4152 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0343 


5331 


0000 


0103 


BF66 


0016 


5654 


B2EF 


FFF7 


BD5E 


4C80 


4R53 


F254 


8354 


0E53 


1543 


0615 


1666 


F756 


C006 


14R3 


5653 


638E 


4E53 


F056 


3FB2 


EFFF 


1773 


5DD0 


4B13 


C1D0 


4B02 


7350 


0615 


4306 


.1562 


FFFB 


564E 


5300 


5606 


1543 


F45C 


1773 


5D06 


1503 


5C05 


7455* 


0614 


^406 


1528 


8E53 


D667 


1773 


6306 


BC7D 


75R0 


7D52 


0615 


0306 


143F 


0800 


7C01 


7463 


155E 


0614 


fl31R 


FE14 


547C 


0614 



3E80 


0040 


0100 




KIOM 1 


1 Diss 


3326 






1E21 


1F24 


5840 


5347 


1623 


3040 


0100 


0000 


0000 


2F20 


1216 


2402 


1C61 


245R 


4516 


003C 


0544 


5203 


1F3E 


01 3C 


2C0B 


023F 


0760 


5C3E 


1640 


0133 


ILI/ WCI 


4F58 


143F 




5E01 


283F 


0743 


5B60 


483F 


0B0B 


454B 


603F 


1363 


2120 


1340 


0100 


0611 


6E06 


118E 


060F 


0E00 


3100 


0C68 


0611 


' fl20F 


0C68 


3300 


0840 


6E0F 


0833 


0008 


3300 


025C 


0000 


F600 


060C 


6803 


0008 


B0BE 


E008 


BC75 


4081 


4flBC 


7745 


7230 


BC55 


5752 


R057 




521 F 


0275 


0072 


0512 


4402 


7500 


7500 


7252 


BF40 


3100 


4000 


1263 


R083 


4C07 


E083 


FE02 


0500 


0803 


0516 


F307 


E083 


FE05 


w 1 vo 


XHL 1 U 


4557 






5900 


KIKIIulCI 




0000 


0000 




0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


0000 


132C 


0343 ■ 


5332 


5330 


BF66 


0017 


561F 


3500 


0040 


8754 


0E53 


CF53 


5053 


80B6 


EFFF 


7FBC 


7350 


0600 


0406 


1528 


5363 


91 BE 


EFFF 


F056 


FR56 


C0OO 


4B15 


5350 


0615 


0306 


0815 


KI«JCiw 




0615 


5E53 


66BE 


BE62 


0486 


5CBC- 


6273 


7106 




0614 


SF00 


8E80 


R316 


8653 


0615 


7363 


DBEF 


FFF6 


14R3 


1003 


5420 


0675 


4E73 


6306 


08&E 


60CE 


544B 


0615 


5E05 


1403 


DBEF 


FFF6 


5608 


FE1E 


0614 


FE1C 
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1460G 


0614 


FE16 


0615 


2853 


3C06 


1503 


0614 


9906 


(5< 


1430G 


0615 


62F6 


5C04 


0514 


0E06 


14fl9 


0C54 


R306 


b \ T 


14R0G 


14P3 


0E06 


1528 


0615 


4935 


02C0 


R000 


R040 


( 15 § 


14B0G 


06FE 


16FF 


00FD 


525F 


2002 


2020 


2fl5C 


20FB 


R *\ 


14C0G 


8BB2 


8863 


BF64 


02E4 


BE4R 


03BF 


5400 


01BE 


bed J T 


14D0G 


6O0R 


8780 


0006 


003D 


8E75 


7513 


BF7E 


171B 


in — uu "* 


14E0G 


08FD 


5202 


4353 


31FB 


D667 


1674 


F0S0 


R2FD 


R CS1 g t 


14F0G 


D675 


FE75 


13BF 


6200 


1206 


1516 


54C4 


0615 


u u b T 


1500G 


1654 


C006 


1543 


0514 


R90R 


0615 


2806 


1S5E 


T I ( ^ 


1510G 


BD5C 


5005 


0034 


3502 


E0R0 


00R0 


2008 


FE17 


\P 45 


1520G 


FF00 


FD52 


5F20 


FB00 


0355 


28BC 


5873 


BC73 


R_ U( Xs s 


1530G 


5RDB 


7545 


7371 


D67S 


4374 


4406 


7552 


733C 


Z uEsq uCtO uRs< 


1540G 


BL/3 


58D6 


750D 


5528 


00BE 


6CFF 


B068 


66BF 


sX u Ll( L hf 


1550G 


6R01 


6CF6 


6803 


8679 


CE73 


1E55 


5800 


fi66C 


3 I h y y UX I 


1560G 


554C 


8662 


8673 


CE79 


3C55 


6690 


62CE 


620R 


UL b y y<Uf b b 


15706 


5564 


0033 


0002 


5815 


R0B2 


3300 


0262 


0000 


Ud 3 X b3 b 


15805 


58BC 


7563 


E762 


0008 


3262 


B064 


0002 


58R1 


X uc b 2b d X 


1530G 


6264 


R0B0 


6452 


9164 


D164 


6255 


9206 


0012 


bd dR d dbU 


15R0G 


15C0 


15C9 


15E1 


15F6 


1601 


160B 


1621 


1638 


! 8 


15B0G 


164D 


1663 


1675 


1686 


1697 


16R0 


16B7 


16C3 


M c u 


15C0G 


0700 


5245 


4144 


494E 


4716 


0045 


5252 


4FS2 


RERDING ERROR 


15D0G 


2044 


4554 


4543 


5445 


4420 


494E 


2044 


4154 


DETECTEO IN CRT 


15E0G 


4113 


FF50 


5245 


5353 


2043 


4153 


5345 


5454 


R PRESS CR55ETT 


15F0G 


4520 


5354 


4F50 


0900 


5245 


434F 


5244 


494E 


E STOP RECORD IN 


1600G 


4708 


0043 


4845 


434B 


494E 


4714 


FF52 


4557 


6 CHECKING REW 


1610G 


434E 


4420 


4341 


5353 


4554 


5445 


2054 


4150 


I NO CH5SETTE TAP 


1B20G 


4515 


FF50 


5245 


5353 


2043 


4153 


5345 


5454 


E PRESS CRS5ETT 


1630G 


4520 


5245 


434F 


5244 


13FF 


5052 


4553 


5320 


E RECORD PRESS 


1640G 


4341 


5353 


4554 


5445 


2050 


4C41 


5914 


0043 


CASSETTE PLRY C 


1650G 


4845 


434B 


2054 


4150 


4520 


2859 


204F 


5220 


HECK TRPE (Y OR 


1660G 


4E29 


3F10 


0054 


4845 


4E20 


5052 


4553 


5320 


N)? THEN PRESS 


16/0G 


454E 


5445 


S20F 


FE50 


5245 


5353 


2052 


2054 


ENTER PRESS R T 


1680G 


4F20 


5245 


4144 


0F00 


5052 


4553 


5320 


4520 


REflO PRESS E 


1630G 


544F 


2045 


5849 


5407 


0044 


4154 


4120 


4F4B 


TO EXIT ORTR OK 


16PI0G 


1500 


4552 


524F 


5220 


2020 


4E4F 


2044 


4154 


ERROR - NO ORT 


1BB0G 


4120 


464F 


554E 


4410 


0050 


5245 


5353 


2043 


R FOUNO PRESS C 


16C0G 


2054 


4F20 


4348 


4543 


4B11 


0050 


5245 


5353 


TO CHECK PRESS 


1BD0G 


2052 


2054 


4F20 


5245 


434F 


5244 


0000 


0000 


R TO RECORO 


1BE0G 


0000 


0000 


0000 


0000 


0000 


0404 


04FC 


0400 




16F0G 


0000 


FC04 


FCFC 


FC00 


0000 


0004 


00FC 


0000 




1700G 


FFFF 


FFFF 


FF0D 


203D 


7877 


7332 


336F 


6C2E 


=xws29ol . 


1710G 


6365 


6433 


3869 


6B2C 


7672 


6634 


3775 


6R60 


btQ5Byhnzc]d10p f / 


1720G 


6274 


6735 


3679 


686E 


7fl71 


6131 


3070 


3B2F 


1730G 


FFFF 


FFFF 


FF0D 


202B 


5857 


5340 


284F 


4C3E 




1740G 


4345 


4423 


2R43 


4B3C 


5652 


4624 


2655 


4R40 




1750G 


4254 


4725 


5E53 


484E 


5R51 


4121 


2950 


3fl2D 


BTG%''YHNZQfl ! )P: - 


1760G 


FFFF 


FFFF 


FF0D 


2005 


0R7E 


0804 


0F27 


C2B9 




1770G 


600B 


0307 


063F 


C1B8 


7F5B 


7B02 


01 5F 


C0C3 


? [{ 


1780G 


BE5D 


7D0E 


0CC6 


BFC4 


5CB9 


7C03 


BC22 


BOBR 


3 ) \ 1 ~ 


1730G 


FFFF 


FFFF 


FF0D 


209D 


9897 


93B2 


9F8F 


8C3B 




17R0G 


8385 


84B3 


3E89 


&B&0 


3592 


86B4 


B795 


8R8D 




17B0G 


8234 


87B5 


B639 


888E 


3R91 


81B1 


B090 


3CBB 




17C0G 


FFFF 


FFFF 


FFFF 


FFFF 


0004 


0207 


0906 


0C0O 




17D0G 


0E05 


0308 


0805 


030E 


0006 


0C09 


0704 


0200 




17E0G 


100B 


110R 


1312 


010F 


0F12 


0113 


0R0B 


1110 




17F0b 


0000 


0000 


0000 


0000 


0000 


0000 


mm 


01FF 
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THE BR5IC GR0M5 



Essential parts of Basic are located in GROMS 1 and 2 . 
Rmong them are the routines for input of commands, the 
crunching of input Lines into Basic programs, the start of 
execution of Basic programs, several Basic commands and all 
subprograms which can be activated by Basic command CRLL. 

Besides the possibility of putting Basic programs into 
GROMS which can be used with modules (i.e. Module Personal 
record keeping) , the TI Basic mostly uses th VDP RRM. The 
use of the memory space starts at the top with the program 
containing the program lines. These program lines are 
composed of a byte which indicates the length and then of a 
crunched line, i.e. not the input line is stored but a 
shorter version ( so-called tokens ) in which all Basic 
commands are crunched into 1 byte. The end of the line is 
indicated by a byte with value >00. The value of the 
tokens can be seen on the tables starting at GROM address 
>2a70. 

There are 3 additional tokens: 

C7 means a following string in parenthesis; 

C8 means a string without parenthesis and 

C3 means that a line number (2 bytes) follows. 

The last line is always stored at the lower end i.e. the 
lines are not sorted according to their numbers. The 
second part of the program consists of the line List. It 
consists of 2 bytes for the line number and 2 bytes for a 
pointer indicating to the start of the Line in RRM. 

Then follows the symbol list also known as variable list. 
It contains all the important information for the variables 
( structure see below J. Following that is the space for 
the Peripheral Recess Blocks ( PRB ), which are necessary 
for each file, and finally the space to store the string 
variables. 

Basic also uses a stack for temporary storage of values. 
It starts at the top of the RRM used by VDP for the screen 
display and grows to the top. Often, the GPL command PRR5E 
is used in the Basic routines to obtain the value of a 
variable or of an expression. 

Basic also uses extensively the Scratch Pad RRM >8300 
through >83FF. In details: 

>8300->a3l7 Generally used for temporary storage. 

>8316 Pointer to start RRM space used for strings( String 

Space), high address. 

>831R Pointer to end of RRM space used for strings. (low 
address ) 

)831C Temporarv pointer to string. 

)a31E Step for NUM mode. 

>8320 Pointer to start of screen input. 

)8322 Error-Code for the transfer between Assembler 
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routines and 6PL- rout ines . 

>Q32A Pointer to start of Basic value stack and of 
character definitions. 

>8326 Return address for the return of Basic PssembLer 
routines to GPL. 

)&3Zb fiddress for jump tabLe in GROM for the Basic 
commands. 

>832fi Pointer to end of screen input (may also be located 
outside of screen area ). 

>832C Pointer to text in a Basic I ine , (Text-Pointer ) 
>832E Pointer to line in Line list just executed. 
>8330 Pointer to start line list ( low address is 
essentially the end of a Line List since here the highest 
line number is located. 

>8332 Pointer to end of Line List ( high address ). 
>833^ Pointer to next data element. 

>8336 Pointer to line in line list for next data element. 
>8338 Pointer to actual position in crunch buffer. 
>8330 Pointer to free space used by PRB's. 

>833C Pointer to first entry in POB List( there is an entry 
for each file). 

>833E Pointer to first entry into symbol list(variabLe 
list). 

>8340 Pointer to free space which can be used by symbol 
list. 

>8342 Executed character. 
>8343 ^/alue of option base. 
)8344 Run- flag. 
>8346 Start Line number. 

>834R->836D PRC used as for the assembler routines. 

>a36E Pointer to upper end of Basic value stack. 

>8370 Pointer to end of usable VDP RRM. 

>8372-)837F Is used by GPL. 

>a388 Various flags. 

>8389 GROM/VDP fLag(0=VDP). 

>838fl->83BF Subroutine and data stack for GPL. 
>83C0->83FF GPL working sp'ace. 

To this day, no versions are known of these Basic GRGMS. 
Therefore we can do without the Hex-dumps of the sample 
GRGMS. 
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THE BASIC WLUE STACK 



The entries vary depending on what is stored on the stack 
Every entry has a length of 8 bytes. 

Kind 1st word 2nd word 3rd word 4th word 

Numeric expression 8 bytes floating point number 
>001C >6500 



String expression 
Numeric variable 

String variable 



Pointer Length of 
to string string 



Pointer 
to entry 
symbol table 



)0000 



Pointer 
to entry 
symbol table 



>6500 



Numeric data field Pointer 



(array) 



String data field 
Car ray ) 



GOSUB 



FOR 



to entry 

symbol 

table 

Pointer 
to entry 
symbol 
table 



Hbyte=0 
Lbyte= 
Number of 
dim. 



Pointer 
to value 



Pointer 
to value 



Pointer 
to value 



Pointer 
to return 
row in row list 



Hbyte=>65 Pointer 
Lbyte= to value 
Number of 
dim. 

>6600 



Pointer 
to entry 
symbol table 



>B700 



Pointer 
to value 



DEF 



Pointer 
to row 



*^alue of increase 

Limit of Loop 

>68 plus Old 
>00 for pointer 
numeric symbol 
>80 for table 
string 



>0000 



Length of 
string 



>0000 



>0000 



Pointer to 
row in row 
list 



Old pointer 
Free space 
string 
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THE SYMBOL TRBLE 



The entries in the symbol table are constructed as follows: 



1st word 

Byte 1: Bit (MSB) 
Bit 1: 



Byte 2i 



Bit 2 
Bit 5 

Bit 
Bit 4 



- 4 

- 7 

- 3 

- 7 



String flag, when set, is a string 
user defined functions. 
Not used 

Number of dimensions i.e. number of 
parameters . 
Not used 

Length of variable names 



2nd word:Pointer to next entry in symbol table. 
(0000 at the end) 

3rd wordrPointer to name of variable 

4th word and on: Space for value of variable. 

Details: 

DEF: 1 word pointer on definition 
String: 1 word pointer to value of string 
Numeric: 8 bytes for value 

Array: 1 word each with limit in each dimension. 
Ot numeric array follows space for 
values of all elements. (8 Bytes each) 
Rt string array each element is 
followed by one pointer (2 Bytes) 
to the value of the corresponding string 



THE PRB LIST 



Each entry for a file consists of the following details: 

Byte and 1: Pointer to next entry in PRB-list 
Byte 2: File number 

Byte 3: Internal offset (is used to write into PRB buffer) 

Byte 4: I/O Op Code for DSR 

Byte 5: Flag byte 

Byte 6,7: Pointer to buffer 

Byte 8: Maximum length of record 

Byte 9: Length of actual record 

Byte 10,11: Number of record (only for relative files) 

Byte 12: Screen offset 

Byte 13: Length of file name 

Byte 14: File name 
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n n n n n n n n AT 



* 

BRSIC BRUM RNflLYSIS * 
30.12.84 H. MRRTIN * 



Header 

2000 : 

2002 : 

2004 : 

2006 : 

2008 : 

200n : 

200C : 

200E : 



DRTR 
DRTR 
DRTR 
DRTR 
DRTR 
DRTR 
DRTR 
DRTR 



>RR02 
>0100 
>0000 
>214D 
>0000 
>4D1fl 
>0000 
>0000 



Program 
Subprograms 



2010 : BR BR0Me>2417 Execution of a Basic program in GRDM 

2012 : BR eR0M@>2135 Return Basic 

2014 : BR BRDM§)2B0B "Crunch" input Line 

201B : BR 6R0M§>2B6C Routine syntax error output 

2018 : BR SRQMe>267E Sets back cursor position after an error 

201R : BR 6R0Me>2192 2nd entry point Basic 

201C : BR 6R0M§>27F1 Load character block and color VDP 

201E : BR GR0Me>236D Shift blocks in VDP RRM 

2020 : BR 6R0M§>26HB Reset length byte 

Text (with screen offset): 

2022 : TEXT ' >8R, >a0, >B7 . >R1 , >B2, )RE, )R9, >RE, >R7 , >9fl' * WRRNING 

202C : TEXT ' > 13, >R9, >RE , >R3, >RF, >B2 . )B2' INCORRELI 5TRTEMENT 

>H5, >H3, >B4, >a0, >B3, >B4, >fl1 , >B4, >fl5, >HD, >R5, >RE, >B4' 
2040 : TEXT ' >08, >R2, >fl1 . >fl4, >a0, >flE, >H1 >RD,>R5' BRD NRME 

2049 : TEXT ' >0B, >flD, >R5, >RD, >RF, >B2, >B9, >a0, >flB, >B5, >RC,>flC, MEMORY FULL 
2055 : TEXT ' >0E, >fl3, >R1 , >RE. >a7, >B4, >a0, >R3, >flF, >RE, >B4, >R9, >RE, )B5, >fl5' 

CRN'T CONTINUE 

20B4 : TEXT ' >09, >fl2, >R1 , >R4, >a0, >B8, >R1 , >RC, >B5, >R5' BAD VHLUE 
206E : TEXT ' >0E, >RE. )B5, >RD, >fl2, >R5, >B2, >80, >B4 , >RF, >RF , >a0, >R2, >fl9 , >R7' 

NUMBER TOO BIB 

207D : TEXT ' >16, >B3, >B4, >B2, >R9, >RE, >R7, )aD, >RE, >B5, >RD, >fl2. >R5, >B2, >a0. >RD 

^ >R9,)B3,>RD,>fl1,>B4,)R3,>Ra' STR I NB NUMBER MISMATCH 

2094 : TEXT ' >0C, >R2 , >fl1 , >R4 >80, >fl1 , >B2, >fl7, >B5, >flD, >R5, >RE, >B4' 

BHD RRBUMENT 

20R1 : TEXT ' )0D, >H2, >fl1 , >R4, >a0, >B3, >B5, >R2, >B3, >R3, >B2,R9, )B0, >B4' 

BAD SUBSCRIPT 

20RF : TEXT ' >0D, >RE, >fl1 , >HD, >R5, >a0, >R3, >flF, >RE, >R6, >RC, >fl9, >R3, >B4' 

NAME CONFLICT 

20BD : TEXT ' >0D, >H3, >R1 , )flE, >87, >B4, >80, >H4, )RF, >80, >B4, >Ra, >R1 , >B4' 

CRN'T DO THRT 

20CB : TEXT ' >B4 , >R9, >a0, >R2, >fl1 , >B3, )R9, >R3, >a0, >B2, >A5, >fl1 , )R4 , >B9' 

ri BRSIC RERDY 

20D9 : TEXT ' >0F, >R2, >fl1 , >R4, >e0. >HC, )A9, >flE, >A5, >80. >AE, >B5. >HD, )R2, >R5. >B2' 
„„^„ BRD LINE NUMBER 

20E9 : TEXT ' >8R, >80, >fl2, >B2. >R5, >R1 , >RB, >B0, >RF, >R9, >RE, >B4, >80, >R1 . >B4, >80' 

* BREAKPOINT IN 

20F9 : TEXT ' >0E, >RB. >RF, >B2, >8D, >RE, >fl5, >Ba, >B4, >80, )R5, >B2, >B2, >RF, >B2' 

FOR -NEXT ERROR 

2108 : TEXT ' >B4, >B2, >B9, )a0, >H1 , >R7, >fl1 , >fl9, >flE, >3fl, >60' 

TRY RSRIN: 

2113 : TEXT ' >09, >fl9, >8F, >flF, >a0. >R5. >B2, >B2, >flF, >B2' I/O ERROR 
211D : TEXT ' >0R, >R6, >A9, >flC, >A5, >a0, >R5, >B2, >B2, )RF, >B2' FILE ERROR 
2128 : TEXT ' )0B, >R9, >RE, )B0, >B5, >B4, >80, >R5, >B2, >B2, )flF, >B2' INPUT ERROR 
2134 : TEXT ' >0fl, >fl4, >A1 , >B4 , >R1 , >80 >R5. >B2, )B2. >RF, >B2' DRTR ERROR 
213F : TEXT ' >0D, >RC, >R9, )flE, >R5, >a0, >B4. >RF, )RF , >80, >RC, >RF, >RE, >R7' 

LINE TOO LONB 
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Program : 






214D : 


DRTR 


>0000 




^14P . 
c. i*ir : 


UH 1 H 


>216F 




2151 : 


DRTR 


>08 




2152 : 


TEXT 


' :TI BRSIC: ' 




21 5P : 


BR 


6R0Me>222B 


Resets painter 


Cursor 


and space: 




215C : 


DRTR 


>00, >7C. >7C, )7C, >7C, )7C, >7C, )7C 


2164 : 


DRTR 


>00, >00, >00, >00, >00, >00, >00, >00 


VDP register 


data : 




21 6C : 


DRTR 


>F0 




21 6D : 


DRTR 


>0C 




216E : 


DRTR 


>F8 




Seg i n 


Bas ic : 






21 6F : 


ST 


e>a373. )aa 


Substack 


2172 : 


CALL 


GR0M§>27E3 


Prepare VDP 


2175 : 


MOUE 


>000E TO VDPe>02C2 FROM GROMe>20CB TI Basic ready 


21 7C : 


CLR 


§>8388 




217F : 


CRLL 


GROM§)4012 


PRB existing, close files 


2182 : 


5T 


6)8334, >FF 


Pointer to current data 


2185 : 


D5T 


e>836E, >06F8 


Value stack pointer 


2189 : 


D5T 


e>8324,@>83BE 


Basis value stack = top character 


218C : 


D5T 


§) 8332, §> 8370 


End line table 


218F : 


D5T 


§>8330 ■e>a332 


Start line table 


2152 : 


CRLL 


GR0M§>222B 


Set pointer 


En t r V 


return 


Bas ic : 




2135 : 


RND 


e > 8388 . > F 7 


r I ea r bit 4 


2199 : 


OR 


@ > 8388 , > 20 


Set bit 2 


219D : 


ST 


@)8374. >0S 


Keyboard mode 


21R0 : 


SCAN 






21R1 : 


ST 


e>a3/3 . >aa 


Pointer substack 


21R4 : 


DST 


e>8320. >02E2 


Screen output start address 


2108 : 


CLOG 


a > A'^Aft ) 1 

\r / Owuo * / u 1 


Nil rmca nil" fnnHo r 


21 RC : 


B5 




Nn 1 1 tfnn 

I.^U , J Ull 


21 RE : 


DADD 


) ^ > a34fi 


^♦"Pn tn 1 1 np niimbpr 


?1 HI • 




€ / OOHO 1 / Ubl 




Cm 1 • 


R^ 


urxiiji Id / 1 




C 1 DO • 


AND 


0*300, /rc 


itpar* rian hit 
\-l.CCSI 1 I. OIJ U 1 i. 


7 IRQ . 
C lOH 


RR 


OKUrlO^ lUo 




71 Rr • 


nrpn 

Ul»di 


B > O J Jill . 6 ) O J 


exist Line table: 


71 HP . 
c. \ Or : 


Rc; 


6R0M§)21C9 


No , 3 ump 


^ IL. 1 : 


riQT 

U3 1 


e > 8344, @> 8346 


Line number on pointer 




roi 1 


GR0Me>263E 


Compute line pointer 


71 r7 . 


Rc; 


6R0Me>2399 


Found line, jump 


^ 11.3 : 


LHLL 


6ROM@>4D00 


Scroll 1 line 


^ ILL : 


U3 1 


§>835E,§>a346 




■5 1 re 
^ILr ; 


roi 1 
LHLL 


GR0Me>2842 


Line number on screen 


o-i no 

: 


UlNL 


@>8320 


Screen address +1 


21D4 : 


BR 


GR0Me>21D9 


bo on 


21 D6 : 


CALL 


GROM@>4D00 


Scroll 


21D9 .: 


5T 


VDPe>02£1 , >9E 


Cursor 


21DD : 


CRLL 


GR0M§)2832 


Rccept input line 


21E0 : 


RND 


§>8321 . >E0 


On full line 


21E3 : 


INCT 


e>8321 


♦ 2 


21 E5 : 


CRLL 


6RDM§>2457 


Crunch input line 


21E8 : 


DCZ 


e>8344 


Line number 0V 


21Efl : 


BS 


GROMe>2203 


Yes, jump 


21EC : 


CLOG 


§>8388. >01 


NUM mode ? 


21F0 : 


BR 


6R0Me>21FC 


No . i ump 


21F2 : 


CEQ 


§)8375. >0D 


Enter key? 


21F5 : 


85 


6R0M@>21FC 


Yes, jump 


21F7 : 


CEQ 


6)8342, )01 


Line cleared? 


21FR : 


BS 


GR0Me)2388 


Then jump, clear line 
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21FC : 


CRLL 


P1FP ■ 

^ 1 1 r • 




• 

^c.iu 1 : 




2203 : 




2206 : 


B5 


2208 : 


CH 


220C : 


B5 


220E : 


D5T 


2212 : 


XML 


2214 : 


CRSE 


2217 : 


6R 


2219 : 


BR 


221 B : 


BR 


221D : 


BR 


221F : 


BR 


2221 : 


BR 


2223 : 


BR 


2225 i 


BR 


2227 : 


BR 


2229 : 


BR 


222B : 


DST 


222E : 


DCEQ 


2231 : 


BS 


2233 : 


DDEC 


2235 : 


DCLR 


2237 : 


DST 


2230 : 


DDEC 


223C : 


DST 


223F : 


CLR 


2241 : 


DCLR 


2244 : 


RTN 


List : 




2245 : 


DCEQ 


2248 : 




224R : 


g 


Run : 




2240 : 


DCEQ 


2250 : 


BS 


2252 : 


CRLL 


2255 : 


DCLR 


2257 : 


CRLL 


225R : 


INC 


225C : 


DCLR 


225F : 


DST 


2263 \ 


DST 


2266 : 


BR 


Continue : 


2268 : 


CRLL 


226B : 


BR 


226D : 


DCZ 


2270 : 


BS 


2272 : 


RND 


2276 : 


CRLL 


2279 : 


DCLR 


227B : 


DEX 


227F : 


ST 


2282 : 


B 


2285 : 


CRLL 


2288 : 


DRTR 


2289 : 


DRTR 


2280 : 


BR 


Numbe r 




228C : 


CALL 


228F : 


DST 



6R0Me)26B4 
GR0Me)21H4 
GR0M@>2192 
@>8342, >01 
6R0M§>21fl4 
VDP@>0320, >09 
GRQMe>2265 
e>832C, >0321 
>1B 

VDP@>0320 

GR0Me>224D 

GR0M@>216F 

GR0M§>2268 

GRGMe>2245 

GR0M©>2342 

6R0M§>228C 

GRQM§>22H7 

GR0M§>22RR 

GR0M@>229F 

GR0M@>2377 



Insert Line 
New beginning 

New beginning, but without clearing of pointers 
Length of input 1, i.e. only Length byte 
Then start again 
Token >09? 

Yes, then arrange Line 
Fetch 1st byte of Line 

Depending on token for direct mode 

RUN Rt this token the Lines are not 

NEW compLeteLy crunched. 

CONTINUE 

LIST 

BYE 

NUM 

OLD 

RESEQUENCE 

5RVE 

EDIT 



@ > 8340, @> 8330 
@ > 8340, @> 8370 
GR0Me>2235 
@>8340 
@>833E 

e>8318,e>8340 
e)8318 

@>831R,§)8318 

§>8343 

VDP§>03EC 



Beginning Line table = free space 
Equal to highest address ? 



Clear symbol taule 

Free space in end string space 



Start string space 
Option base 



@ > 8330, §> 8332 

GR0M§)2346 

BROMe)4018 

6 > 8330, @> 8332 

6R0Me>2346 

6ROMe>4D10 

e>8344 

6RCMe>4012 

§>8344 

VDP§>03EC 

e)836E,>0BF8 

§>8324,e>83BE 

GR0M§>282a 



Exists Line table? 
No , j ump 
Execute list 

Exists line table? 

No , j ump 

Run subprogram 

Clear flag 

Close all open files 

Flag 

Entry GROM execution 
Top value stack 
Basis value stack 
Execute prescan 



GRDMe>282C 
GR0M§>26BC 
VDP@>03EC 
6R0M@>2285 
§>8388. >DF 
GRQK§}4D00 
e>832E 

VDPe>03EC,e>832E Restore pointer 



Only spaces in Line? 
No, error 
Continue flag? 
Cleared, error 
Clear bit 2 
Scroll 



e>8344, >FF 
6ROM§>4D0C 
6R0Me>284E 
>20 
>55 

GRQM@>21R4 

GROM§>2840 
@>8346,e>a314 



Run flag 
Continue 
Error 

Can' t continue 



Fetch details 
Start line 



- 136 - 



2292 : 


D5T 


§>8348,e>831E 


Step 


2235 : 


OR 


e>8388, >01 


NUM mode 


2299 : 


D5T 


§>8320, >02E2 


Start screen input 


229D : 


BR 


6R0M§>21BC 


Go on 


Save: 






Is there any program at all? 


229F : 


DCEQ 


§> 8330, §> 8332 


22R2 : 


B5 


5R0Me>2346 


No, error 


22R4 : 


B 


GROM§>4014 


Execute 


Old: 








22R7 : 


B 


5ROM§)4016 




Resequence : 




Program existing? 


22Rfl : 


DCEQ 


§> 8330, 6)8332 


22RD : 


BS 


6R0Me>2346 


No, error 


22RF : 


CRLL 


6ROMe>2840 


Fetch details for line number and step 


22B2 : 


D5T 


§>834R, 6)8332 


End line list 


22B5 : 


D5UB 


§)834R,§)8330 


Minus beginning line list 


22B8 : 


DSRL 


6)834R, )0002 


Now number of lines (/4) 


22BC : 


DMUL 


@)834R,e>831E 


* Step 


22BF : 


cz 


6)8348 


No overflow, jump 


22C1 : 


B5 


GRGMe)22CR 




22C3 : 


CRLL 


6R0Me)284E 




22C6 : 


DRTR 


)20 


Bad line number 


22C7 : 


DRTR 


)D9 




22Ca : 


BR 


GR0Me)21R4 




22CR : 


DRDD 


6)8314, e)834C 


Plus start line number 


22CD : 


CRRY 




Gverf Low? 


22CE : 


B5 


GR0M6)22C3 


Yes, error 


22D0 : 


CH 


6)6314. >/P 


Negative? 


22D3 : 


BS 


GR0M6)22C3 


Yes, error 


22D5 : 


; CLR 


6)8350 




22D7 : 


; D5T 


6>834R.@>A332 


End line List 


22DR : 


; DINCT 


6)834R 


-»2 


22DC : 


; CEQ 


VDP*)834R. >C7 


String? 


22E0 ! 


; B5 


GR0M6)22E8 




22E2 : 


; CEQ 


VDP*)834fl, >C8 


String? 


22E6 ; 


; BR 


6R0Me>22F3 


No, jump 


22E8 ; 


; DINC 


6)834R 


On length byte 


22ER ; 


i ST 


6)8351 ,yDP*>a34R Fetch length byte 


22EE ; 


: DRDD 


6)834R,6)8350 


Behind the string 


22F1 ; 


; BR 


GR0M6)231E 


Go on 


22F3 ; 


: CEQ 


VDP*)834H, >C9 


Token for Line number ? 


22F7 i 


; BR 


6R0M6)231E 


No , go on 


22F9 


: DINC 


6)834R 


Highest Line number (computed before) 


22FB : 


: DST 


6)834E, 6)8314 




. [)5j 


6)834C.6)8330 


Start Line list 


2301 


: DCEQ 


VDP*)834C,yOP*)a34R Scan Line list for right line 


2306 


: BS 


6R0M6)2318 




£.■3x10 


I U3UO 


6)834E,e>831E 


Right line number for next Line 


C.3100 


: DRDD 


6)834C, )0004 


Next Line 


£.3x11 


• nr H 

• UL.n 


e)834C.e)8332 


End of Line list reached? 




BP 


GROM6)2301 






: DST 


e)834E. >7FFF 


Not found, error value 


2318 


• DSl 


VDP*)834H,6>834E New line number in program line 


231L 


: DINL 


6)834fl 




231 E 


: DINC 


e)834H 


Next address 


2320 


: C2 


VDP*)834R 


Line end ? 


2323 


: BR 


GR0M6)22DC 


No , go on 


232S 


: DCEQ 


e>834R,6)8370 


Arrived at end of program 


2328 


: BR 


6R0Me)22DR 


No , go on 


232R 


: DST 


6)834R.6)8330 


Start line number 


232D 


: DST 


e)834C, 6)8314 


Highest new line number 


2330 


: DST 


VDP*>834R,e)834C Line number in line list 


2334 


: D5UB 


6)834C,e)831E 


Next line number 


2337 


: DRDD 


6)834R, )0004 


Next entry in Line list 


233B 


: DCH 


6>834fl,6)8332 


End of List reached? 


233E 


: BR 


GROM6>2330 


No , go on 
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2340 


: BR 


Bye: 




2342 


: CRLL 


2345 


: EXIT 


2346 


: CRLL 


2349 


: DCLR 


234B 


: CRLL 


234E 


: DRTR 


234r 


: DRTR 


2350 


: BR 


2352 


: DRDD 


2355 


: D5UB 


2358 


: DCHE 


235C 


: B5 


235E 


: DRDD 


2361 


: CRLL 


2364 


: DRTR 


2365 


: DRTR 


2366 


: BR 


2368 : 


: RTN 


2369 ; 


: DDEC 


236B ; 


: DDEC 


236D : 


: ST 


2372 ; 


: DDEC 


2374 : 


: BR 


2376 ; 


: RTN 


Edit: 




2377 


: CRLL 




: B5 


237C ; 


: CRLL 


237F i 


; CZ 


2381 : 


; B5 


2383 : 


: CRLL 


2386 : 


: BR 


2388 : 


; DCEQ 


238B : 


: BS 


2380 : 


; CRLL 


2330 : 


: BS 


2392 : 


CRLL 


2395 : 


DRTR 


2396 : 


DRTR 


2397 : 


BR 


2399 : 


ST 


239C : 


DST 


233F : 


ST 


23R2 : 


ST 


23n5 : 


CRLL 


23R8 : 


CH 


23nB : 


BR 


23nD : 


CRLL 


23B0 : 


DSUB 


23B4 : 


D5UB 


23B8 : 


DST 


23BB : 


RND 


23BE : 


DRDD 


23C2 : 


DST 


23C5 : 


DCHE 


23C8 : 


BS 


23C0 : 


DST 


23CE : 


CRLL 


23D1 : 


RND 


23D4 : 


INCT 



GR0Me>21R4 
GROMe>4012 



GRQM@>4D00 

§>a344 

6R0M@>2a4E 

>20 

>BD 

6RGM§>267E 

@>832R.§>a302 

e>8330.e>832R 

@ > 8330, > 0738 

6RGM§>2368 

@>8330,@)832R 

GR0M@)284E 

>20 

>49 

GR0M@>267E 



Back to Basic 

Close files 
Software reset 

Scroll 

Clear program flag 
Error 

Can't do that 



Entire length 

Minus beginning of line list 

High enough? 

Yes, return 

Old value again 

Error 

Memory full 



@>8306 Next address 

e>8300 

yDP*> 8306. VDP*> 8300 Shift storage spaces 
e>835C Number 
GR0M@>2369 No end, then jump 



GR0M§>2e2C 

GR0M@>2679 

GR0M@)283C 

@>830C 

GRGMe>2679 

GRGM@>28S6 

GRGM@)2679 

e > 8330, §> 8332 

GRGM§>2346 

6RGMe>283E 

GR0Me>2399 

GR0M@>284E 

>20 

>D9 

GRGMe>267E 
e)8306, >1D 
e>8314,§>832E 
§>8317, >60 
e>8307. >1C 
GRGM§>282E 
e > 8306, §> 8307 
6R0Me>23B8 
GRGM§>4D00 
@>8320, >0020 
e>8308, >001C 
e>835E,§>8320 
@>835F, >E0 
e>835E, >007D 
§>832R,§>a308 
e>835E,§>832R 
GR0Me>23CE 
e>835E,>02FD 
GR0M§>2858 
e>8321 , >E0 
e>8321 



Skip spaces 

No line number, then error 

Fetch line number and convert in integer. 

No digits? 

Then error 

Space till line end ? 
No, error 

Exists line list ? 
No, error 

Search line in list 
Found, go on 
Error 

Bad line number 



Line width 

Pointer to line in line list 
Screen offset 



Print the line 



Scroll 

Start of screen input 
Start line 

Plus maximum length of input 

Higher then end of screen input ? 

End of screen 
Line editor 

Input of the whole screen line 
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23DB ; 


; CLOG 


§>a3aB, >01 


NUM mode 


23Dn 1 


: BR 


GR0M@>23FR 


Yes, jump 


23DC : 


: CEQ 


e>8375, >0R 


Cursor up? 


23DF : 


: BR 


GR0Me)23EC 


No , j ump 


23E1 : 


; DSUB 


§>6314, >0004 


Next line 


23E5 ! 


: DCHE 


§>6314,e>d330 


StilL over beginning of line 


23E8 : 


; BR 


eR0M§>23FR 


No, end with ENTER key 


23ER : 


: BR 


6R0Me>23FF 




23EC ; 


: CEQ 


§>8375, >0B 


Cursor down? 


23EF i 


: BR 


GROMe>2403 




23F1 : 


: DRDD 


e>8314, >0004 


Next line 


23F5 ; 


; DCH 


§)8314,@)8332 


End of line list 


23F8 ! 


: BR 


GR0Me)23FF 


No, go on 


23FR ; 


; 5T 


e)8375, >0D 


Trick, simulate ENTER key 


23FD ; 


1 BR 


6RQMe>2403 




23FF 1 


; D5T 


e)831E.VDP*>a314 Next Line number 


2403 ; 


; CZ 


e>8360 


Flag for change 


2405 1 


: BR 


GROMe>240D 


Not changed, jump 


2407 ; 


: CALL 


GR0M§)2457 


Crunch line 


240n : 


: CRLL 


GR0M§>26B4 


Insert line 


240D ; 


! D5T 


e>8344.e>831E 


Next line number 


2410 


: CEQ 


e>8375, >0D 


ENTER key? 


2413 


: BR 


GRaMe>238D 


No, go on in edit mode 


2415 


: BR 


6R0M@)2195 


Otherwise return to Basic 



Execute Basic program in 6R0M 

2417 : FETC e>8330 Fetch line table pointer 

2419 : FETC §>8331 

24 IB : FETC @>8332 

2410 : FETC e>8333 

241F : D5T e)834fl.*>8373 Return address on PRC 

2423 : 5T 6)8373, >8fl New set stack 

2426 : DST *>8373.@>634H New return address 

242R : CRLL GR0M@>27E5 Prepare VDP with pattern table 

242D : DCLR e>834R 

242F : DRDD yDP*>a34R, >60B0 Descripe screen with Basic offset 

2434 : DINCT @>a34R 

2436 : DCEQ §>834fl,>0300 

243R : BR BR0Me>242F 

243C : MOVE )0001 TO REG>01 PROM GK0Me>245B Set VDP register 1 

2442 : 5T e>8383, )FF Set GROM flag 

2446 : DST e > 8334 . @ > 8332 Pointer to data element 

2449 : DSUB 6)8334. > 0003 

244D : MOUt >0002 TO 6)8344 FROM GRUM6) 0000(6)8334 J Ketch 1st line number 

2454 : BR GR0M6)225C For execution RUN 

2456 : DRTR )57 



Crunch 


input 


line (Change 


into token i.e. into Basic format): 


2457 : 


CLR 


6)830C 


Clear number of digits 


2459 : 


DCLR 


6)8344 


No line number 


245B : 


DST 


6)8338, )03 IF 


Pointer on crunch buffer minus 1 


245F : 


CRLL 


6R0Me)282C 


Skip spaces 


2462 : 


BS 


GR0M6)265B 


Jump at empty line 


2464 : 


CH 


6)8342. >33 


Character greater than 9? 


2467 : 


BS 


GR0Me>2471 


Yes, jump 


2463 : 


CHE 


6)6342, >30 


Character smaller than 0? 


246C : 


BR 


6R0M6)2471 


Yes. jump 


246E : 


CRLL 


6R0Me)283fl 


Convert line number in hex 


2471 : 


DCLR 


6)835C 




2473 : 


DCH 


6)8320,6)832R 


Start addresss input greater than end address? 


2476 : 


B5 


GR0M6)265B 


Yes , end 


2478 : 


CRLL 


GR0Me>2856 


Fetch first character 


247B : 


BS 


6R0M6)265B 


No more character, end 


247D : 


CLR 


6)830C 


Clear number of digits 


247F : 


CHE 


6)8342. >30 


Greater 0? 


2482 : 


BS 


GR0M6)2497 


Yes. then jump 



- 139 - 



2.ABA 


. Q£Q 




• Rc; 

D3 










248E 


■ rai 1 


2491 


: CRLL 


24S4 


: B 


2497 




249R 


: B5 


249C 


: CRLL 


24SF 


: BR 


24fl1 




2403 




24R6 


: D5T 


24R9 


: CRLL 


24Rc 


: 6 


24RF ; 


■ CPU 


24B2 ; 


: BR 


24 B4 ; 


: DCLR 


24B6 : 


• TDI I 


24B9 : 


. Q5T 


24BC ; 


: BR 


24BE ; 


: CRLL 


24C1 ; 


: INC 


24 C3 ; 


. CRLL 


24C6 ; 




24C8 ; 


• CRLL 


24CB 




24CD 




2400 : 




24D2 : 


. CRLL 


24D5 ; 


• TNr 


24 D7 ; 


. CRLL 


24DR ; 


; C2 


24 nr " 






• rHF 

i_nc 


^*T& 1 


> RR ' 


24E3 : 


: CGT 


24E6 : 


: BR 


24E8 : 


: DCLR 


24ER • 




24ED ] 


; DRTfl 


24EE : 


; DRTR 


24EF : 


BR 


24F1 : 


CEQ 


■ 

t.*Tr *t • 




24FB : 


r7 


24F8 1 


BR 


24FR : 


INC 


24FC : 


RR 

ays 


24FE : 


DST 


2501 








2506 : 


1 iwvC 


P^Pin • 


U3 1 


7mn • 

1 Kl • 


Mnup 

1 lUVQ 


2516 : 


CEQ 


2519 : 


R(^ 


251B : 


nonn 

UHUU 


251E : 


ST 


2521 : 


CEQ 


2526 : 


BR 



§>8342, >2E 

6R0Me>243C 

§>8342,>22 

GR0M@>24R1 

GR0M§>26a4 

6ROMe>2830 

6R0M@>2471 

§>8342.>39 

6R0Me>24RF 

6R0M@>27RF 

6R0M§>24F6 

e>830C 

6ROM@>2a50 

@ > 8302, e> 8338 

6ROM§>2830 

6R0Me>24FE 

GR0M§>2846 

GRQM§>24R1 

@>830C 

GRQM@>2a50 

@ > 8302, @> 8338 

GR0M§)24C3 

GROMe>2850 

@>a30D 

GROMe>2830 

GR0Me>24DR 

GR0Me)2846 

GR0Me>24BE 

§>8342, >24 

GR0Me>24DR 

GROM@>2850 

@>a30D 

GROM@>2830 

@>830D 

GR0M@>24F6 

6)8300, >0R 

6R0Me>24FE 

@>830O, >0E 

GR0M§>24F6 

6)8344 

GR0Me>284E 

)20 

)40 

GR0M6)267E 

6)8301 ,)02 
GRCMe>24E8 

6)835C 
eR0Me)266C 
e>835C 
GR0Me>2473 



Point? 

Yes, then jump 

Quotation marks? 

No , 3 ump 

Fetch string 

Fetch next byte 

Start again 

Greater 9? 

Yes, then jump 

Crunch string or number 

Length counter 
(Write byte 
Crunch pointer 
Fetch next byte 



Check on symbol name 

No, write byte and go on 

Length counter 

Byte in VOP 

Crunch pointer 

Jump 

Byte in VOP 

Fetch byte 
Line end 

Check on symbol name 
O.K. , go on 
Character $? 
No , j ump 
Byte in VDP 

Increase length counter 
Fetch byte 

Length 0, then if adequate token 

Yes, jump 

Greater 10? 

No, search token table 

Greater 14? 

No , j ump 

No line number 

Error 

Bad name 

With new beginning 

If character not recognized 
then jump error 

2 symbols one after the other 
Incorrect statement 
1st symbol 
Go on 



Fetch table address 



6)8300, 6 )830C Save symbol Length 
6)8301 Number of characters 

6)8300, )01 Into the table 

>0002 TD 6)830C FROM 6R0M6)285C (6)8300 
6)8306,6)8302 

6)8300 TO e)a34R FROM GRGMd) 0000(6)8300 Symbol definiton from tab, 

e)834R,)FF Table end? 

6R0M6)24F1 Yes, then variable 

6)830C,6)6300 Next name 

6)8304, >4R FRC 

*) 8304, VOP*) 8306 Name o.k.? 

GROM6)250D No, go on 
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2528 


: DINC 


e>8306 


Till all digits 




252R 


: INC 


e>8304 






252C 


: DCHE 


@ > 8338, @> 8306 


End ? 




252F 


: B5 


GR0Me>2521 


No, go on 




2531 


: D5T 


§> 8338, e> 8302 


Old crunch pointer 




2534 


: 5T 


e ) 8302, Jt> 8304 


Fetch token 




2538 


: ST 


yDP*> 8338, §> 8302 Token in VDP 




253C 


: CEQ 


e>8302, >93 


Special case DRTR 




253F 


: BS 


GROM§>2604 






2541 


: CEQ 


@>8302, >9D 


Special case CRLL 




2544 


: BS 


5R0Me>263E 


Jump directly to crunch 


string 


2546 


: CEQ 


§>8302, >9R 


Special case REM 




2549 


: BS 


BR0M§>25DF 






254B 


: CH 


e>8302, )09 


Special cases 00 through 09 


254E 


: BR 


GR0M§>25BR 




for line nun 


2550 


: DST 


@>835E, >25D5 


Rddress list with token 


2554 


: BR 


BR0Me>25RR 






2556 


: CEQ 


e>835C,@>8302 


Is token alright 




2559 


: BR 


GR0M§>25Rfl 


No, search 




255B 


: CEQ 


@>8302, >B1 


Token TO? 




255E 


: BR 


GR0Me>2568 


No , j ump 




2550 


: CEQ 


VDPe>FFFF(@>8338) , >85 Token GO? 




2566 


: BR 


6R0M§)2471 


No , go on 




2568 


: CRLL 


GR0M@)2856 


Fetch byte 




256B 


: BS 


GR0Ke>265B 


Rt line end jump 




256D 


: CHE 


e>8342, >30 


Greater or equal 




2570 


: BR 


GR0Me>2471 






2572 


: CH 


e>8342, )39 


But smaller or equal 9 




2575 


: BS 


GR0Me)2471 


then go on 




2577 


: DST 


@>834E,@>8344 


Save line number 




257fl 


: CRLL 


GR0M§>283R 


Convert in integer 




257D 


: DST 


@>6344,e>834E 


Right line number again 




2580 


: ST 


©>834E,e>8342 






2583 


: ST 


e>8342, >C9 


Token for line number 




2586 


: CALL 


GROM§)2850 


Write byte 




?589 


: ST 


e>8342,@>834R 






258C 


: CRLL 


GROM§ > 2850 






258F 


: ST 


@>a342,e>834B 


Line number in VDP RRM 




2592 


: CRLL 


GROM@ > 2850 






2595 


: ST 


§>8342,e>834E 


Old byte again 




2598 


: CEQ 


@>8342, )2C 


Character ,? 




259B 


: BR 


GR0Me>2471 


No, then go on 




259D 


: ST 


e>8342, >B3 


Token , 




25P0 


: CRLL 


GROM@>2850 


Write byte 




2503 


: CRLL 


GR0M§)282C 


Skip spaces 




25R6 


: BS 


GR0M@>265B 


Line end 




25R8 


: BR 


GR0M§>256D 


Go on 




Scan 


List of 


token for line 


number : 




25RR 


! MOVE 


>0001 TO §>835C 


FROM 6ROMe>0000(e)835E) 


Fetch token 


25B1 


: DINC 


§>835E 


Next token 




25B3 


: CEQ 


e>835C, >FF 


End ? 




25B6 


: BR 


GR0Me>2556 


No , j ump 




25B8 


: BR 


6R0M§>2471 


Go on 




25BR 


: DCEQ 


6)8338, >0320 


Crunch pointer on >0320 




25BE 


: BR 


GR0M§>266C 


No, syntax error 




25C0 


: DCZ 


6)8344 


No line number 




25C2 


: BR 


GR0Me>2346 


Scroll with " Can't do 


that error " 


25C4 


: CEQ 


6)8302, )06 


Old 




25C7 


: BS 


GROM6)2604 


Like DRTR 




25C9 


: CEQ 


6)8302, )0a 


Save 




25CC 


: BS 


GROM6)2604 


Like DRTR 




25CE 


: CEQ 


6)8302, >03 


List 




25D1 


: BS 


GR0Me>25E9 


Special case 




2503 


: BR 


GR0M6)265B 


Finish and return 





List of tokens with following line number: 

25DS : DRTR >B0, )81 , >H1 , )B1 , >87, >a6, >aE, >8F, >94, >FF 
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Special case REM: 
25DF : CRLL GROM§)2a50 
25E2 : CRLL GROMe>2630 
25E5 : BR 6R0M@>25DF 
25E7 : BR 6R0Me>26SB 
Special case LIST: 



25E9 : 


CRLL 


5R0M§>2856 


25EC : 


CEQ 


e>8342, >22 


25EF : 


BR 


6ROMe>2601 


25F1 : 


CRLL 


6R0Me>2684 


25F4 : 


CRLL 


6R0Me>282C 


/ : 


03 


brtUnfS > ^bbD 


25F9 : 


CEQ 


§>a342, >3R 


25FC : 


BR 


GR0Me)266C 


25FE : 


CRLL 


GR0Me>282C 


2601 : 


B > 


GR0Me>265B 


Data: 






2604 : 


ST 


@>634H, >01 


2607 : 


DDEC 


@>8320 


2609 : 


BR 


6ROMe)260E 


Change 


input 


line : 


2608 : 


ST 


§> 8300, §> 8373 


260E : 


CLR 


§>8311 


2610 : 


CALL 


GR0Me)282C 


2613 : 


BS 


GRCM§>265B 


2615 : 


CEQ 


@>a342, >2C 


2618 : 


BR 


GR0M@>2624 


261R : 


ST 


e>8342, >B3 


261 D : 


CRLL 


GROMe>2850 


2620 : 


INC 


e>8311 


2622 : 


BR 


GROM§>2610 


2624 : 


CEQ 


e)8342, >22 


2627 : 


BR 


GR0M@>262E 


2629 : 


CRLL 


GR0Me>2684 


262C : 


BR 


6ROM@)2610 


262E : 


ST 


6)8313, >2C 


2631 : 


CLR 


§>8382 


2634 : 


CRLL 


GR0Me>28S4 


2637 : 


CEQ 


e>8342,>2C 


263R : 


BS 


6R0M§>2615 


263C : 


BR 


GR0Me>265B 


263E : 


CZ 


@>8342 


2640 : 


BS 


GR0Me>266C 


2642 : 


CRLL 


GR0Me>2856 


2645 : 


ST 


@>834R, >01 


2648 : 


ST 


e>8313, >28 


264B : 


ST 


@>a3a2, >0i 


284F : 


CRLL 


6RQM@>2854 


2652 : 


BS 


6RGM§>265B 


2654 : 


DDEC 


e>8320 


2656 : 


CRLL 


6RQM§>282C 


2659 : 


BR 


GR0M§>24R1 


265B : 


CLR 


6 > 8342 


265D : 


CRLL 


GROMe>2850 


2660 : 


D5T 


@> 8302, 6)8338 


2663 : 


DSUB 


6)8302, )031F 


2667 : 


ST 


@) 8342,6)8303 


266R : 


BR 


GRDM6)2850 



Syntax error routine: 
266C : CLOG 6)8388,) 20 
2670 : BR 6R0Me>2677 
2672 : ST 6)8373,6)8300 
2675 : BR 6R0M6)26CE 



Write byte 
Fetch next byte 
Till end 
End of line 

First character without spaces 

Character "? 

No , end 

Fetch string 

Skip spaces 

Jump at line end 

Character :? 

No, error 

Skip spaces 



Flag 

Pointer in input line minus 1 
Fetch line 



Save substack pointer 
Length counter 
Over jump spaces 

Point? 

Token , 
Write byte 
Length plus 1 
Start again 
Quotation mark? 

Fetch string 
Start again 
Point 

Fetch string without "" 

Point? 

Go on 

End 

Line end ? 
Error 

First character without spaces 



Fetch string without "" 

Beginning input minus 1 
Skip spaces 

Not line end, then go on in crunch routine 

Byte into VDP 
Crunch pointer 

Compute length 
Byte in VDP and end 



Bit 2 set? 
Yes, jump 

Save subroutine stack 

Return with condition bit set 
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2677 : 


DCLR 


6 > 8344 


Clear run flag 


2679 : 


CALL 


6R0M§>284E 


Error 


267C : 


DRTR 


>20 


Incorrect statement 


267D : 


DRTR 


>2C 




267E : 


D5UB 


§> 8346, e> 8348 




2681 : 


B 


6R0Me>21R1 




2684 : 


ST 


e>8342, )C7 


String token 


2687 : 


CRLL 


6ROM§>2850 


Write 


268n : 


CRLL 


GR0M@>26RB 


Save crunch pointer for Length byte 


268D : 


CRLL 


GROM§>2830 


Fetch character 


2630 : 


BS 


GR0M§>266C 


No more, then jump 


2692 : 


CEQ 


e>8342, >22 


Quotation mark 


2695 : 


B5 


6R0M§>269E 


Increase Length byte, write byte and new 


2697 : 


CRLL 


GR0Me>2852 


26Sn : 


B5 


6R0Me>266C 




269C : 


BR 


GR0Me>2692 


Till the end of strings 


269E : 


CRLL 


GROMe>2830 


Fetch character 


26R1 : 


BS 


6R0M@>26Rfl 


TilL line end jump 


26R3 : 


CEQ 


e>8342, >22 


Rnother quotation mark? 


26R6 : 


BS 


GR0Me>2697 


Yes. then go on in string 


26R8 : 


DDEC 


@ > ojZki 




26RR : 


RTN 






26RB : 


DINC 


@)8338 


Crunch pointer +1 


26RD : 


D5T 


§> 8302, §> 8338 


Save crunch pointer 






vUr* / 0J30 


r*laai^ nricifinri in OMP 
I— Lear pUall>.LLIII IM vui 


26B3 : 


RTN 






Insert 


Line 


in program: 


Close open files 


26B4 : 


CRLL 


GROMe>4012 


26B7 : 


CRLL 


6R0M§>222B 


Set pointer new 


26BR : 


CLR 


e>8302 


Length byte on )8302 (word) 


26BC : 


ST 


e > 8303, §> 8342 


26BF : 


CEQ 


e>8342, >01 


Length 0? 


26C2 : 


BR 


GROM@>2703 


No , j ump 


26C4 : 


CLOG 


e>8368, >01 


NUM mode? 


26C8 : 


BS 


GR0M§>26D2 


No , j ump 


26Cfl : 


RNO 


§>8388, >FE 


Clear NUM mode 


26CE : 


CEQ 


@ > ojtiVi , e > odato 




26D1 : 


RTNC 






2602 : 


DCEQ 


e > 8330, e> 8332 


No line List exists? 


26D5 : 


BS 


GRQM§>26CE 


No, return with condition bit set 


26D7 : 


CRLL 


GR0M§>283E 


Search line number 


26DR : 


BR 


6RDM§>26CE 


Not found, end with condition bit set 


26DC : 


CRLL 


GR0Me>2838 


Clear line 


26DF : 


DST 


e>8306.e>a32E 


Pointer in line list 


26E2 : 


DINC 


3)8306 


+ 1 


26E4 : 


DDECT 


@>832E 


-2 


26E6 : 


DST 


@>8300,@>832E 


Lower address 


26E9 : 


DDEC 


@>8300 




26EB : 


D5UB 


@>832E,§>8330 


Number 


26EE : 


DCZ 


@>832E 


0, last line? 


26F0 : 


BS 


GR0M§>26F8 




26F2 : 


DST 


@>83SC,@>832E 


Number 


26F5 : 


CRLL 


GR0M@)236D 


Shift part of line list 


26F8 : 


DRDD 


e>8330, >0004 


New start Line list 


26FC : 


DCH 


e> 8330, 6)8370 


Higher than top of memory? 


26FF : 


BS 


6RQne)218C 


Doesn't go, reset pointer to line list 


2701 : 


BR 


GR0Me)222B . 


Return with new pointer 


2703 : 


DST 


6)8304, 6)8344 


Line number 


2706 : 


DST 


6)8306,6)8332 


End line list 


2709 : 


DST 


@)832E,e)8332 


End L ine list 



- 143 - 



270L 

270F 

2711 

2713 

2717 

271B 

271 D 

2721 

2.722. 

2724 

2727 

2729 

272B 

272E 

2732 

2735 : 

2738 ; 

273B ; 

273E : 

2744 : 

2747 I 

If no 

2749 ; 
2740 ; 

2750 ; 
2753 : 
2756 ; 
2759 I 
2758 : 
2761 ! 
2764 : 
2767 : 
2769 : 
276C : 
276E : 
2771 : 
2774 : 
277fl : 
277C : 
2782 : 
2788 : 



DCEQ 
B5 

DINC 

D5UB 

DCEQ 

BS 

D5T 

H 

BR 

DCEQ 

BS 

BR 

DST 

DRDD 

DSUB 

DST 

CRLL 

DRDD 

MOVE 

DST 

BR 



§> 8330, e> 8332 
6R0M@>2749 
@>832E 
@>832E, >0004 
@>8344,VDP*>832E 



Does 
Then 



Is 



I ine 
jump 



List not exist ? 



there a Line number? 
6R0M§>278R Yes, jump 

@)832R,>0004 Does not infLuence status byte 

Test on H bit 
GRaM©>272B Line number does not exist 

@>832E,§>8330 Reached end of Line List? 
6R0Me>274D Yes, Line be Longs to end 

GR0Me>2713 Go on searching 

@>835C,@>832E Pointer on entry point in Line List 
@>a35C,>0004 +4 
@>835C,§>8330 Number 

e>8316,@>8330 OLd pointer beginning of Line List 
6R0M6>2352 Is there enough space in memory? 

@>8330,e>8302 Start address 

@>835C TO VDP^t>6330 FROM VDPit>8316 Shift part of Line List 

e>83Z6,@>8332 End Line List 

6R0M§>2756 



program exists tiLL now: 



DST 
CALL 
DRDD 
DST 
DSUB 
DINC 
MOVE 
DST 
DSUB 
DINC 
DST 
DINC 
DSUB 
DSUB 
MOVE 
DDEC 
ST 

MOVE 
BR 



@>832n, >0003 
GR0Me>2352 
§> 8330, 6) 8302 
@>832E,§>8330 
§>830B,§>8302 Minus Length 
@>8306 Pointer to new 

>B004 TO VDP*t>832E FROM e>8304 



Is there enough space in memory? 
New start Line List (oLd vaLue stiL on >8316) 



Line 

Entry in 



Line List 



If Line aLready exists: 



§>a35C,@>8332 End Line List 
@>835C,©>8330 Minus beginning Line List 
e>835C +1 
e>8316,e>8330 Beginning Line list 
@>a302 Length pLus 1 

@>8330,@>8302 New start line List 
e>8332,§>8302 New end of line List 
@>835C TO VDP*e)a330 FROM VDP*>a316 Shift Line List 
@>a302 Number minus 1 

VDPe>FFFF(e>8306) ,e>8303 Write length byte in program part 
@>8302 TO VDP*>8306 FROM VDPe>0320 Line in program 
GR0M©>222B Return with new pointer 



2780 

278F : 

2792 : 

2794 : 

2796 : 

279R : 

279D : 

279F : 

27fl2 : 

27R5 : 

27H8 : 

27Rfl : 

27RD : 

Crunch 

27flF : 

27B1 : 

27BS : 

27B8 : 

27BB : 

27BE : 

27C0 : 

27C3 : 

27C6 : 



DST 
RND 
DDEC 
CLR 
ST 
DST 
DNEG 
CRLL 
DRDD 
CRLL 



e>a35C,VDP§)0002(@>a32E) Pointer to Line 
@>835C,>7F Bit reset 

§>835C -! 
@>830a 

e>8309,VDP*>835C Length 
@>832R,e>8308 

Will be cleared 

Is there enough space in memory? 



e>832R 
GR0Me>2352 
§>a330,§>832R 
GR0Me>283a 
DDECT @>832E 
DST §> 8306, §> 8332 
BR GR0Me)2756 

numbe r 

DINC @>8338 

ST VDP*>8338, >C8 

CRLL GR0Me>26RB 

CRLL GR0M§>27CB 

CEQ e>8342,>2E 

BR 6R0Me>27C3 

CRLL 6R0M§>27D5 

CEQ §> 8342,) 45 

BR GR0M§>27E2 



Clear Line 

Reset pointer again 

Go on with inserting of new line 



String token 

Pointer for length byte 

Fetch number 

Point? 

Go on 
E? 

No , end 
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27C8 : 


CRLL 


GR0Me>2a52 


Write byte and increase pointer 


27CB : 


CEO 


§)8342, >2B 


Plus 


27CE : 


B5 


6R0Me>27D5 




27D0 : 


CEQ 


@>8342, >2D 


Minus 


27D3 : 


BR 


6R0M§>27D8 




27D5 : 


CRLL 


6R0Me>2852 


Write byte, next byte 


27D8 : 


CHE 


e>a342, >30 


Greater or equal ? 


27DB : 


BR 


GR0M§)27E2 




27DD : 


CHE 


e>8342, >3R 


Greater or equal : ? 


27E0 : 


BR 


GROM§ > 27D5 




27E2 : 


RTN 






Set VDP tables 




27E3 : 


RLL 


>80 Clear screen 


27E5 ': 


D5T 


e>a3C0,>3567 


Random number seed 


27EP : 


MOVE 


>0010 TO VDP@>03F0 FROM 6R0M§>215C Cursor and space 


27F1 : 


D5T 


@>834R, >0400 


Capital letters 


27F5 : 


CRLL 


GROM@>0018 




27F8 : 


D5T 


§>834R, >0600 


Lower case 


27FC : 


CRLL 


6ROM@>004R 




27FF : 


BRCK 


>07 


Backround color 


2801 : 


DST 


VDPe>0300, >D000 Sprite end decimal 208 


2806 : 


MOVE 


>000D TO VDP§>0302 FROM VDP§>0301 Clear under color table 




5j 


VDP§>030F, >17 


Load color table 


2811 : 


MOVE 


>B010 TO VDPe>0310 FROM VDP§)030F 


2818 : 


MOVE 


>0003 TO REG) 02 


FROM 6R0M§>216C Load color table 


28 IE : 


RTN 






281 F : 


DRTR 


>00, >00, )00, >m 




2823 : 


DRTR 


>00, >00, >00, >00, >00 


2828 : 


BR 


GR0M§>2FFF 


Prescan 


282R : 


BR 


6R0M@>2F43 


Bad line number 


282C : 


BR 


GR0M@>2C75 


Skip spaces 


282E : 


BR 


6R0Me>2DFR 


List one line on screen 


2830 : 


BR 


GR0M§>2CRB 


Fetch character from input Line 


PA^P • 




GR0M@)2R42 


Line editor 


PA^iS ■ 

^W«JM ■ 


BR 


6R0M§>2C36 


Starts NUM 




RR 
or\ 


GR0M§>2FC4 


Finds first token of a Line in VDP 




PR 


GR0M@)2BD6 


Clears lines 


283R : 


BR 


GR0Me>2F12 


Search certain Line number 




RR 


GR0M§>2EF9 


Line number from RSCIl in hex 




RR 
or\ 


GR0Me>2F5D 


Finds program line in VDP 


2840 : 


BR 


GR0Me>2C2B 


Starts NUM with error values 


2642 : 


BR 


GR0M§>2FRF 


Line number from hex in RSCII with screen 








projection. 




RP 


GR0Me>3493 


Fetch space in VDP for string etc. 


^o^b : 


□D 
tJK 


GROMe>3450 


Check, if variable name 


OQ X Q 

^o*»o : 


DD 


GR0Me)31E5 


Sets variable in symbol table 




drc 


GR0M§>322B 


Sets dummies in symbol table 




RR 


GR0Me>2D24 


Warning 


2a4E : 


; BR 


GR0Me)2D99 


Er ror 


2850 : 


; BR 


6R0M§>2C84 


Stores actual byte in VDP 


2852 : 


; BR 


GROM§>2CR0 


Increase VDP pointer for next character 


2854 : 


; BR 


GROMe>2CC0 


Fetch string without "" 


2856 : 


; BR 


GR0M§>2C7R 


Fetch first character from input line without 








space 


2858 : 


; BR 


GR0M§>2R49 


2nd entry point Line editor 


285n : 


; BR 


GR0M§>2R4F 


3rd entry point Line editor 


Token 


table 


pointer : 




285C : 


! DRTR 


>2a70 1 byte 




285E ; 


; DRTR 


>2aaF 2 




2860 


: DRTR 


>289C 3 




2862 


: DRTR 


>291D 4 




2864 


: DRTR 


>2973 5 
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2866 


DflTR 


>293E 


6 


2868 


ORTR 


>23D0 


7 


2S6R 


DRTR 


>23F1 


3 


zaec • 


DRTR 


>2R16 


9 


286E 


DRTR 


)2R2B 


1 



1 byte: 
2670 : TEXT 



268E : DRTR 
2 bytes: 
2a8F : TEXT 



289B : DRTR 
3 bytes: 
283C : TEXT 



231 C : DRTR 
4 bytes: 
291 D : TEXT 



) 


f >B6-, 


( 


, )B7 , 


& 


! >B8! 




', >C5', 




I )BE , 




', >C3,' 


/ 


. >C4, 


+ 


,>C1, 




, >C2, 


< 


, >BF, 


> 


.>C0, 




, >BS, 




, )B4, 


k 


. )FD, 




, )B3' 



>FF 




:60: , 


>85, 


: IF: , 


>84 , 


:0N: 




:T0: ! 


>B1 ' 


>FF 




• HFF • 

• UCl 4 


1 'OS ( 


• DTM • 




: ciNU : 


\ An 


: cur : 


/ ' UH » 


: rur\ : 




. 1 FT . 


s An 


• RFM • 


, 1 3H ) 


: DUD I 


( ' H 1 1 


:TRB: 


,>FC, 


:RB5: 


, >CB, 


• Mill. 




:COS: 


, >CD, 


:EXP: 


,>CE, 


:INT: 


. >CF, 


:LOG: 


, >D0, 


:RND: 


, >D7, 


:56N: 


,>D1, 


:5IN: 


.>D2, 


:50R: 


, >D3, 


:TRN: 


, >D4, 


:LEN: 


, )D5, 


:POS: 


. >D3, 


:VflL: 


, >DR, 


:H5C: 


,>DC, 


:REC: 


,>DE, 


:NEU;: 


,>01. 


:RUN: 


, >00, 


:LUN: 


, >02, 


:NUM: 


, >05, 


:RES: 


.>07, 


:BYE: 


, >04, 


:OLD: 


, >06' 


)FF 




:BRSE 


:,>F1 


: DflTR 


: , >33 
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2972 : DflTR 
5 bytes: 

2973 : TEXT 



299D : DRTO 
6 bytes: 



EDIT 
ELSE 
GOTO 
NEXT 
RERD 
STEP 
STOP 
THEN 
CHR$ 
5E6$ 
STR$ 
LIST 
SRVE 
CRLL 
OPEN 
>FF 

BRERK 
605UB 
FIXED 
INPUT 
PRINT 
TRRCE 
CLOSE 
>FF 



, >09, 

,>ai, 
, >aB, 
, >ss, 

, >97, 
,>B2, 
,>9fl, 
, >B0, 
, >DB, 
, >D8, 
, )DB, 
, >03, 

, >0a, 

,>9D, 
, >9F' 



>6E, 

>a7, 

>FH, 
>92, 
>9C, 
>30, 
>R0' 



293E : 


TEXT • 


OPTION: , 


>9E, 






RETURN: , 


>aa, 






NUMBER: , 


>05, 






OUTPUT : , 


>F7, 






APPEND: , 


>F9, 






UPDRTE: , 


>Fa, 






DELETE: , 


>99' 


29CF : 


DflTR >FF 




7 bytes: 






29D0 : 


TEXT ' 


UNTRRCE: 


, >91 , 






UNBRERK : 


, >aF, 






RESTORE: 


, >94, 






DISPLRY: 


. >fl2' 


29F0 : 


DRTR >FF 




a bytes: 






29F1 : 


TEXT • 


CONTINUE 


: , >02, 






•VRRIRBLE 


: , >F3, 






: INTERNRL 


: , >F5, 






RELRTIUE 


: , )F4' 


2fl15 : 


DRTR 


>FF 





9 bytes: 
2R16 : TEXT 

2R2R : DRTR 

10 bytes: 
2R2B : TEXT 



2R41 



DRTR 



:RRNDOMIZE: , >95, 
:PERMRNENT: , >FB' 
)FF 

:5EQUENTIRL: , >F6, 
: RESEQUENCE: , >07, 
)FF' 



Line 


edi tor : 






2R42 


: DST 


e>a35E. )035D 


End of input 


2R46 


: DST 


e>a32R,@>a320 


Start of input 


2R49 


: sr 


§>a360, >01 


Flag 


2R4C 


: DST 


@>d361 ,§>a320 


Start of input, cursor position 


2R4F 


: CLR 


6)8300 


Repeat counter 


2R51 


: CLR 


§>a363 




2R53 


: ST 


e>8301 . >7E 


Cursor character 


2R56 


: EX 


VDP*>8361 ,e>a301 


On screen 


2R5R 


: CLR 


e>8379 


Cursor counter 


2R5C 


: SCAN 




Keyboard scanning 
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2R5D 


: B5 


2fi5F 


: INC 


2061 


: CEQ 


2RB4 


: B5 


2R66 


: CHE 


2069 


: BR 


206B 


: SUB 


2R6E 


: B 


2R71 


: CH 


2R74 


: BR 


2076 


: BR 


2R78 


: CLR 


2fl7R 


: CEQ 


2R7D 


: BS 


2R7F 


: EX 


2083 


: CHE 


2Ra6 


: B5 


2R68 


: CEQ 


2R8B 


: BR 


2R8D 


: OND 


2R91 


: CZ 


2R94 


: BR 


2036 


: CLOQ 


2090 


: BR 


209C 


: B 


209F 


: BR 


2001 


: CEQ 


2004 


: BS 


2RR6 


: CEQ 


2009 


: BS 


200B 


: CEQ 


20flE 


: BR 


2OB0 


: ST 


20B3 ; 


: CEQ 


20B6 ; 


! BR 


20B8 1 


: CLR 


20B0 ; 


i DCEQ 


20BD : 


: BS 


20BF ; 


: CEQ 


20C3 i 


I BR 


2flC5 1 


1 DDEC 


20C7 ; 


; DST 


20C0 : 


: DSUB 


2flCD ! 


; MOVE 


2004 : 


: DST 


20D7 : 


: OND 


20D0 : 


; OR 


20DD : 


: DCHE 


2OE0 : 


: BS 


2RE2 : 


EX 


20E8 : 


: DODD 


20EC : 


; BR 


2REE : 


DDEC 


2OF0 : 


CEQ 


20F4 : 


BR 


20F6 ! 


DSUB 


20F0 : 


CEQ 


20FE : 


BS 


2B00 : 


DINC 


2B02 : 


ST 


2B06 : 


BR 


2608 : 


CEQ 


2B0B : 


BR 


2B0D : 


CEQ 


2B11 : 


BS 


2B13 : 


ST 



6R0Me>2078 New key, jump 

§>830D Repeat counter 

@>a375, >FF No key? 

GR0M§>2fl71 Yes, jump 

@>830D,>FE Repeat counter high enough? 

GR0Me>2fl71 No, go on 

e>830D,>1E Minus 

GR0Me>2070 Treat as key input 

e>8379,>0E Cursor counter high? 

6R0M§>205C No, jump to keyboard scanning 

GROM6>205B Yes, keyboard scanning with change character 

@>830D Repeat counter 

§>8301,>7E Cursor character on screen? 

6R0M§>20a3 No, jump 
VDPit) 8361, e> 8301 Change character 



§)8375, >20 
GR0M§>2B41 
e>8375, >02 
6R0M§>2001 
e>83a8, >FE 
§>8389 
GR0M§>2fl56 
e>8388, >20 
GR0M§>2fl3F 
6ROMe>4D0E 
6ROM§>2018 
e>8375.>08 
GR0M§>2BC3 
e>8375, >09 
6R0Me>2BBF 
§>8375, >04 
GR0M§>20B3 
e>8363, >01 
§>8375, >03 
GRQM§>2B08 
e>8360 

e> 8320,6)8361 
GROMe>2B02 • 
VDP*t>8320, >7F 
6R0M§>20C7 
e>8320 

e>a35c,e>8320 

§>835C,§>8361 



FCTN key? 
No, jump 
Clear key? 

Clear bit 7 
RROM? 

Yes, go on 
Bit 2 set? 
Yes , jump 

Program interrupt 

Reset cursor position and end 

Cursor to the right • 

Yes, jump 

Cursor to the right 
Yes jump 
Insert key 
No , j ump 

Flag for insert mode 
Delete key? 
No , j ump 



Cursor at the end? 

Yes end 

Edge? 



Minus 1 
End of input 

Minus actual cursor position 
e>835C TO yDP*>8361 FROM VDP§>0001(§>8361 ) Oil 1 up 
e>835C,§>8361 Octual cursor position 
Test on edge 



§>835D, >FC 
§>835D, >1D 
§>835C,e>8320 
6R0Me>20EE 

VDP§ > 0004 C § > 835C ) , VDP* > a35C 



§>835C, >0020 

GR0Me>20DD 

§>8320 

VDP*>8320,)7F 
GR0M§>20Ffl 
6)8320, )0004 
VDPit>8320, >80 
6R0M§)20S1 
6)8320 

VDP9fr)a320, >80 
6RaMe>2fl51 
6)8375, )07 
6R0Me)2B24 
VDP»)a320, )7F 
6R0M6)2B17 
VDP*>832fl, )80 



01 ready higher than end? 

Exchange edge 



Next line 

End minus 1 
Edge? 



(is cleared) 



Skip edge 
Space at the end 
Yes, go on 
+ 1 

Set space 
Delete end 
Erase key? 
No , j ump 
Edge? 
Yes; skip 
Set space 
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1 / 


nnpr 

UUCL. 


e / 03cM 


End (ninus 1 




ULnc 


e / O J^H 1 6 / 03^10 


TiLt the beginning 




RC 


(^PHMa s ^RDin 


Go on 




. TIT wr 




New end 


C.OCXi 




A V A'^RCI 
e / 03DKI 




pnor? ■ 


BR 


uinUI IB / £H*tU. 


^(arv again 


■ 






Pn ^ o p 

wi 1 V c 1 Key 




Rc; 


urxUI lt=/^D«30 


Yes t end 




r"pn 


A \ A^7C V OB 


Cursor up 




' R<n 
□3 




• CIS ; tfnU 








Cursor down 


^□J 1 


RP 


r;RnMa \ 9q^r 


No f more input 




nrpn 


t: / O J^H 1 G / 033C 


End eQual maximum? 




RR 




No 1 end 




rpn 


tinRA\A'3'7Q %AOI 
vUrir / 03^H , / Ou 


Yes 1 write more space 


2B3C : 


: BS 


6ROMe>2B40 




2B3E ; 


; DINC 


e>832n 


Increase end for 1 point 




RTKI 




Pni-i 


C.a'i \ 


r7 


6 / 0303 


insert mooer 




Rc; 

D3 


r;RnMa\7R7n 


No 1 i ump 




■ nrpn 




Mavimifm anf4 r*OA^nnH r 

1 la A XIIIUIII EIIIU 1 Ca^llCU { 


^DmO 


Rc; 

□3 


(^RHMa \ '>W^A 


Yes 1 j ump 




rpn 


unP^ % ftT?D s 7P 


Edge? 




RR 


r^RHMa \ "PRR^ 


No , j ump 




nonn 


a \ A'^'PQ % OiVtOiA 

e > o J^H , > vtitm 


Skip edge 




U3 1 


a\A'?Rr a%A'3'7a 

S / 033t_ , 6 / 03^H 


^D3/ 


nrw 
ui_n 


asA'?c;r a^A'PR1 

B / 033l_ ) 6 / 03u 1 


Cursor at the end 


^03H 


BR 


6R0M@>2B7B 


No , i ump 


oner 


nnpr 


e>a35c 


^□3C 


3 1 


VDPe>B001(§>835C),VDP*>a35C Shift text 1 ti 




rpn 


VDP*>835C, >7F 


Edge? 


7RRA < 


' RR 
Din 


BR0M§>2B74 


No , i ump 


7RRQ . 


' nm iR 

U3UD 


§>835C, >0004 


Skip edge 




3 1 


VDPe>0005(§>835C),VDP*>835C Shift edge 




RR 


BR0M§>2B57 


Till beginning 


7H7R ' 

CD/ LJ 




@>832R,§>835E 


Maximum end reached? 




' R(n 


5R0M§>2B7D 


Yes, jump 


'7R7R 


HT wr 


@>832n 


End plus 1 


PR7n . 


• onn 

HUU 


§)8375, >60 


Rdd screen offset 




3 1 


VDP*>8361 ,e>8375 Write character on screen 






e>8360 




ORAR . 


nrpn 


§>83B1 ,@>835E 


Maximum end reached? 


9RAq 


RR 


GROM§>2BS0 


No, jump 


'7RAR 


roi 1 


GROMe>0036 


Bad tone 


7RAP • 


• RR 


eR0Me>2R56 


Next entry 


?RRK - 


LI 1 1^1- 


e>83B1 


Increase cursor position 




■ rpn 


VDP*>a361 . )7F 


Edge? 




RR 


GR0Me>2B9C 


No , j ump 


7RQA 


nonn 

UHUU 


§>8361, >0004 


Skip edge 


•JBQr 
^D3L. 


nrw 


@>83B1,@>832P 


Cursor over end 




RR 


GRQMe>2Bn4 


No , j ump 




ncT 

U3 1 


@>a32P,@>8361 


New end position 




nruc 
ULnc 


6)8320, >02FE 


Outside from screen? 


7ROA 


BR 


GR0Me>2R56 


No, next input 


"^ROQ . 
^OHH 


. roi 1 


GRQMe>4D00 


Scroll 


OHQn 
^OHU 


nQi IR 
U3UO 


e>832n, >001C 


End minus 1 line 


7HR1 
Caa 1 


nCA IR 
U3UD 


e>8320, >0020 


Beginning minus 1 line 


ORRC , 


nc:i IR 

U3UD 


e>835E, >0020 


Maximum minus 1 line 


'7nRQ 
^003 


n^i IB 

U3UD 


e>63B1 , >0020 


Cursor position minus 1 line 




RR 


GR0Me>2R56 


Furthe input 


7RRF ■ 


• n R 


§>8363 


Clear insert mode 




RR 


6R0Me>2B6B 


Jump, con troll if beyond end 


2BC3 ! 


; DCH 


e>8361,@>8320 


Rt the beginning? 


2BC6 : 


: BR 


GR0M§>2BD4 


Yes, jump 


2BC6 : 


; DDEC 


e>83B1 


Cursor position minus 1 
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: ucu 


2BCE : 


: BR 


2BD0 : 


: D5UB 


2BD4 ! 


; BR 


Routine for i 




nTMPT 
U 1 n(_ 1 




ncT 
U3 1 


onnr 


HNU 


cOUr 


. nncr 
: UUcil- 


^□C 1 


: b 1 


<ioc.b 


: INL 


our:"? 






: Lib 1 




UiiSL 


yapp 


nnP< — r 


c.Ort) : 


ncT 
Ub 1 




□Kin 




nnpr 


7npQ • 


nrw 
uL.n 


^OrL : 


DD 


^orc ; 


nnnn 




nnci — r 




nr"cn 


£XJUt 


RR 


^1-103 


1 Ub 1 




Ub 1 




nnpr 


^L. 1 1 


nnnn 

UHUU 


2C14 1 


■ nnpr 


2C16 i 


: D5T 


2C19 ! 


: D5UB 


2C1C ; 


; DINC 


2C1E ! 


! CRLL 


2C21 ! 


; DflDD 


2C24 ! 


: DflDD 


2C27 : 


: DRDD 


2C2R : 


; RTN 



VDP*t>8361 , >7F 
GRQM§>2BD4 
@>83B1 , >0B04 
6R0Me>2fl51 



Edge? 
No , j ump 
Skip edge 
Next input 



clearing Lines in VDP RfiM: 
e>832E Pointer on Line 

§>835C,VDP*>a32E Fetch pointer to Line 
e>835C,>7F Clear bit 

@>835C -1, points now to length byte 

e>8303,VDP*>835C Length byte 



@>8309 
@>8308 

§> 8300, 6)8332 
6)8300 
@>8300 

<s») 8306, VDP*) 8300 



+ 1 

Length is word 
End Line table 
+ 1 

2, indicates to pointer 
Pointer on >830B 



in first Line 



6)8308, >7F Clear bit 

6)8306 -1 

§)83SC, 6)8306 Is Line above questioned line? 
GROMe>2C02 No, jump 

VDP*>8300,e)8308 Correct pointer in line 



6)8300 
6)8330,6)8300 
BR0Me>2BEE 
6)8308, 6 )835C 
6)8300,6)8306 
6)8300 

6)8308,6)8308 
6)8308 

6)635C,6>6300 

e)835C,e)a330 

e>835C 

6ROM6)201E 

6)8330,6)8308 

6)8332,6)8306 

6)832E,6>8308 



List 

Next line 
Rlready arrived at end of Line list 
No, go on 
Pointer to Line 
Lowest address for shifting 
-1 

Plus number of bytes 
Now high address 
Reserve number of pointer 
Minus start line table 
+ 1 

Shift VDP RRM 

New pointer to line List 



2C2B ; 


: D5T 


6)8314, )0064 


Error value line 100 


2C2F ; 


! DST 


6)831E,>000R 


Step 10 


2C33 1 


: ST 


6)8308, )2C 


Decimal 44 


2C38 ; 


! DDEC 


6)8320 


Start input screen 


2C38 ! 


! CRLL 


GR0Me)2C75 


To next character 


2C3B : 


; BS 


BR0Me)2C2R 




2C3D ! 


1 CRLL 


6R0M6)2EF9 


Convert first number in hex 


2C40 : 


: CZ 


6)a30C 


fill o.k.? 


2C42 ! 


! BR 


6R0Me>2C4F 




2C44 ; 


: CZ 


6)8300 




2C46 ; 


; BR 


6R0Me)2C4D 


Syntax error 


2C48 : 


; CALL 


6R0Me)2C75 


To next character 


2C4B ! 


; BR 


BR0M6)2C65 




2C4D : 


1 BR 


5RDM6)2016 


Syntax error 


2C4F ; 


; DST 


6)8314,6)8344 


First number on line 


2C52 1 


r CZ 


6)8300 




2C54 1 


: BR 


GROM6>2C60 




2C56 : 


; CRLL 


GR0Me)2C75 


To next character 


2C59 i 


: BS 


6R0Me)2C2fl 




2C5B x 


; ST 


6)830E,e)6309 




2C5E 1 


: BS 


GR0M6>2C65 




2C60 : 


: CRLL 


GR0Me)2C7fl 


Skip space 


2C63 ! 


; BS 


GR0M6)2C2fl 


2C65 : 


; CRLL 


GR0Me)2EF9 


Convert in hex 


2C68 : 


; CZ 


6)830C 


RLl o.k. 


2C6R : 


: BS 


GRaMe)2C4D 




2C6C : 


; DST 


e)831E, 6)8344 


Number as step or 2nd Line i 
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2C6F : 


CZ 


§>8300 




0( — 71 


Ob 


fzontAe^ \ An 
bKUne > ^L4U 


Syntax error 


2C73 : 


BR 


GR0M§>2F4F 


Return with skip spaces 


2C75 : 


CPLL 


6R0M§>2CR6 


Line end? 


2C78 : 


65 


6ROM@>2C80 


Return condition bit set 


2C7fl : 


CEQ 


§>6342, >20 


Space? 


2C7D : 


BS 


oRuMe > ZL75 


Yes, go on 


2C7F : 


RTN 




2C80 : 


CEQ 


6 > o JBB , @ > o Jk30 




2Ca3 : 


RTNC 




RTN condition bit set 


2C84 : 


DCH 


§>6338, >03BE 


Greater than end input buffer 


2C8fl : 


B5 


GR0Me>2C31 


Error 


2C8fl : 


DINC 


e>8338 


Crunch pointer 


2C8C : 


ST 


VDP*) 8338, e> 8342 Write byte in crunch buffer 


2C90 : 


RTN 






2C31 : 


CL05 


e>83a&, >20 


Check flag byte 


2CS5 : 


65 


GR0Me>2C4D 


Syntax error 


2C97 : 


DCLR 


e>8344 




2C39 : 


CRLL 


6RGM§>2D99 


Error 


2C9C : 


DRTR 


>21 


Line too Long 


ZLau : 


UHl H 


>3F 




2C3E : 


BR 


GRGM§>2F4D 


Reset cursor pointer 


2CR0 : 


INC 


VDP*>a302 




2CR3 : 


CRLL 


GR0M§>2C84 


Write byte 


2CR6 : 


DCH 


6)8320, @>832R 


Reached end 


2Cfl3 : 


B5 


GROMe)2C80 


Return condition bit set 


2CRB : 


5T 


e > 8342, VDPif) 8320 Fetch byte 


2CflF : 


CEQ 


§>8342, >7F 


Edge identification 


2CB2 : 


65 


GR0M§>2CBR 


Yes , j ump 


2CB4 : 


SUB 


e>8342, >60 


Subtract offset 


2CB7 : 


DINC 


§>8320 


Increase stack pointer 


2CB9 : 


RTN 




^LdH : 


nnnn 
LtHUU 


e>8320, >0004 


Skip edge 


2CBE : 


BR 


GR0M§>2CR6 


Crunch 


string: 




2CC0 : 


DINC 


§>8338 




2CC2 : 


ST 


VDP*>8338, >C8 


String token 


2CC6 : 


CRLL 


GRGM@>2020 


Pointer for length byte 


2CC3 : 


DCH 


e>8338, >03BE 


End ? 


2CCD : 


BR 


6R0Me>2CD9 




2CCF : 


CRLL 


6R0M§>2C/R 


Skip spaces 


2CD2 : 


B5 


GR0Me>2CEB 


Rt line end jump 


2CD4 : 


CEQ 


e>8342,e>8313 


2CD7 : 


BS 


6R0Me>2CEB 




2CD3 : 


CZ 


@>a382 


Flag 


2CDC : 


BS 


GR0Me>2CE1 


2CDE : 


CRLL 


GRQM@}3450 


Permitted in symbol name? 


2CE1 : 


CRLL 


GROM§>2CR0 


Crunch byte 


2CE4 : 


BS 


GR0M§>2CEB 


Rt line end jump 


2CEB : 


CEQ 


e>8342,e>8313 


2CE3 : 


BR 


6R0M§>2CC9 




2CEB : 


CEQ 


VDP*>8338, >20 


Space? 


2CEF : 


BR 


6R0M§)2CFB 


No, end 


2CF1 : 


DDEC 


@>8338 


Eliminate spaces 


2CF3 : 


DEC 


VDP*>8302 


Length byte minus 1 


2CF6 : 


DCEQ 


@> 8338,6) 8302 


0? 


2CF3 : 


BR 


6R0M@)2CEB 




2CFB : 


RTN 






2CFi: : 


DCLR 


@)834R 
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2CFE ; 


: XML 


>1B 




2D00 ; 


> ^\ in 




In Integer 




i.nc 


B > OJ*iC, , > loH 


Greater or equal 10? 


2D06 ; 


: BS 


VJrMJI t £.\jCXi 


Yes, end 


2D08 i 


: DMUL 






2D0C; i 


; DCZ 




To big? 


2D0E : 


: BR 


6ROMe>2Ca0 


2D10 : 


; ST 


@>a34B @>a342 


PI lie la^fiial Kiy^o 


2D13 ; 


; DRDD 




2D1B ; 


; CRRY 


UVc 1 1 L UW { 


2D17 ; 


; BS 


GRQM@ > 2Cfi0 


lea/ t=i rui 


2D19 ; 


i CGE 


§>834P, >00 




2D1C ; 


: BR 


GROM@ > 2Ca0 


Yes, error 


2D1E ! 


: BR 


GRDM@ > 2CFE 


Go on 


2D20 ; 


: ROD 


e>8342, >30 


Repai r 


2D23 : 


! RTN 





warning 
: CRLL 
: MOVE 
: FETC 
: FETC 
: CRLL 
: CLR 
: CALL 
: D5T 
: MOVE 
: CLR 
: MOVE 
: DRDD 
: DCEQ 
: BR 
: DINC 
: D5T 
: CLR 
I CALL 
; ST 
; SRL 
; CRLL 
: CLOG 
! BR 
! DCZ 
: BS 
: DCH 
: BR 
! CRLL 
I DST 
; DST 
; DRDD 
; ST 
; CALL 
; ST 
: B 



GROM@>4D00 



Scroll 



>000A TO VDP@>02E2 FROM GROMe>2022 Message * WARNING 



e>8376 
e>8377 
GROMe>4D00 
e>8374 
6RQM§>0036 
e>8320, >02E4 



Fetch pointer to text 
Scroll 



Bad tone 

. Cursor position 

>0001 TO @>635D FROM GROMe>0000(§>6376) 
§>835C 

e)835C TO VDP*>8320 FROM 6R0M§> 0001 (©) 8376) 
§>8320,e>835C New cursor position 
e>8376,>2113 I/O error? 
GR0Me>2DBC No, jump 

e>8320 

@>635F,VDP§> 0004(6)8304) Fetch op code 

e>a3SE 

Convert into ASCII and print 
Fetch error code 
In number--) 
In ASCII and print 
Bit 2 set? 
jump 
flag? 
jump 
line? 



Fetch length message 



Text 



on screen 



GR0M@>2FAF 
§>835F,§>83B0 
@>835F, >05 
GR0M§>2FflF 
e>838d, >20 
GR0M@>2DS6 
@>8344 
GR0Me>2D36 
@>a320,)02F5 
6R0Me>2D83 

6ROMe>4D00 Scroll 
e>8320,>02E4 Cursor 
VDPe>0001 (§>8320) , >A9AE 
e>8320, >0004 
e > 8376, e> 8342 
GROMe>4D0R 
§> 8342, §> 8376 
GROM6>4D00 



Yes, 
RUN 
No, 
New 



again beginning of line 
Text "IN" 



Save actual Basic byte 
Line number in ASCII and print 
Basic byte back 
Scroll with return 



Error : 






2D99 : 


FETC 


§>8376 1 


2D9B : 


FETC 


6)8377 


2D9D : 


DCEQ 


e>833E,>0320 ! 


2DR1 : 


BR 


6R0M§>2DR7 


2DA3 : 


DST 


§>a33E,VOPe>0322 


2DA7 : 


CLOG 


6)8388, >20 ] 


2DAB : 


BR 


GROM6>2DB0 


2DAD : 


ST 


§>8373,>BR 1 


2DB0 : 


CRLL 


GROM6>4D00 ! 


2DB3 : 


ST 


VDPe>02E2, >6R 


2DB7 : 


CRLL 


GR0M§>2D35 1 



Fetch text pointer 
Symbol table on >0320? 



Bit 2 set? 
Yes, jump 

New substack pointer 
Scroll 
Text 

Print message 
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2DBP : 


CLOB 


@>8388, >20 


Bit 2 set? 


2DBE : 


BR 


6R0Me>2D23 


Yes, jump 


2DC0 : 


CRLL 


GROMe>201C 


Reset character sets and color tabli 


2DC3 : 


DCZ 


6)8344 


Run flag? 


2DC5 : 


B5 


6R0M§>2DCE 


No , i ump 


2DC7 : 


DCLR 


6)8344 


Clear RUN flag 


2DC9 : 


CRLL 


6ROM6)4012 


Close files 


2DCC : 


DDEC 


§)8344 


Set RUN flag again 


2DCE : 


cz 


6)8389 


GROM? 


2DD1 : 


BR 


BROMe>2C80 


Yes, jump return condition bit set 


2DD3 : 


DCH 


6)83BE,e>8324 


Ualue stack 


2DD6 : 


BR 


5R0Me>2DF1 




2DDfl : 


CGT 


VDPe)0002(e>836E) , )65 Greater string tag 


2DDD : 


B5 


6R0Me)2DE3 




2DDF : 


XML 


>18 


VPOP 


2DE1 : 


: BR 


6R0Me>2DD3 




2DE3 : 


; CEQ 


VDPe>0002(e>83BE) , >68 User defined function? 


2DE8 ': 


: BR 


6R0Me>2DF1 


No, end 


2DER : 


; DCLR 


6)834E 




2DEC ; 


; CRLL 


GRGM§)4D14 


Clear entry 


2DEF : 


: BR 


GR0Me>2DD3 


Go on 


2DF1 : 


; DCZ 


6)8344 


RUN flag? 


2DF3 ! 


: B5 


GRQMe)2DF8 


No , } ump 


2DF5 ; 


; D5T 


6 )836E, 6)8324 


New top value stack 


2DF8 ! 


: BR 


6RGMe)2012 


Return Basic 


2DF0 ; 


: CRLL 


GROM6)401R 


U;rite data block 


2DFD ; 


; D5T 


e>835E,VDP*>a314 Fetch line number 


2E01 ! 


! CRLL 


6RCMe>2F9fl 


Convert number into RSCII and print 


2E04 1 


; D5T 


6)8320,6)8308 


Pointer at beginning reserve output 


2E07 ; 


: DINC 


6)8320 


Plus 1 


2E09 ; 


; D5T 


e)832C,k;DPe)0002(6>8314) Begin text pointer 


2E0E ; 


: RND 


6)832C, >/K 


Bit reset 


2E11 ; 


: D5T 


6)834C, )0020 


Space 


2E15 ; 


: CRLL 


GR0Me)2FS8 


Fetch byte 


2E18 ; 


: B5 


BR0M6>2F11 


End at line end 


2E1R ; 


: CZ 


6)834D 


Print byte on )834D 


2E1C : 


: B5 


GR0M6>2E27 




2E1E : 


: EX 


6)8340,6)8342 


Exchange byte 


2E21 


: CRLL 


GR0M6)2FE3 


Print byte 


2E24 


: EX 


6)8340,6)8342 


Byte back again 


2E27 


: CLR 


6)8340 


O.k. nothing more 


2E23 


: CHE 


6)8342, )B3 


Higher token ,? 


2E2C 


: BR 


GR0M6>2E33 


No , j ump 


2E2E 


: CHE 


6)8342, )C6 


Higher token string 


2E31 


: BR 


GRQM6)2E4B 


No , j ump 


2E33 


: ST 


6)834D, )20 


Space 


2E36 


: CZ 


6)834C 




2E38 


: BS 


GR0M6)2E4B 




2E3P 


: CEQ 


6)8354, > 20 


Space 


2E3D 


: BS 


6RGM6)2E4B 




2E3F 


: ST 


6)834C,6>8342 


Byte on )834C 


2E42 


: ST 


6)8342, > 20 


Space 


2E45 


: CRLL 


6R0M6)2FE3 


Print byte 


2E48 


: ST 


6)8342,e)834C 


Rnd old value again 


2E4B 


: EX 


6)834C,e)834D 




2E4E 


: CLOB 


6)8342, )80 


Token? 


2E51 


: BR 


6R0Me)2ESF 


Yes, jump 


2E53 


: CRLL 


GR0Me)2F5S 


Write data block 


2E56 


: BS 


GR0M6)2F11 


End 


2E58 


: CLOB 


6)8342, )80 


Token? 


2ESB 


: BS 


GRQMe)2ES3 


No , j ump 


2E5D 


: BR 


GR0M6>2E27 


New start 


2E5F 


: CEQ 


6)8342, )C8 


String? 


2E62 


: BS 


6R0Me)2EBC 


2E64 


: CEQ 


6)8342. )C7 


String in "" 
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2E67 


: BR 






• roi 1 

L.HI_L. 




!7PRr 


: Ani_ 


> ID 




: J 1 




1 


. r7 




2E73 


: BS 


RRHMS V 7FAQ 


2E75 


: XML 


) IB 


2E77 


• r7 


<=/0<J*tL. 




RP 




2E7B 






PF7F 










r;RriMa\'7PP'3 


2E63 


• roi 1 




2E66 






2E66 




RRHMA 1 7F7 1 


2E6P 


• f"7 




2EflC 


: BR 


wrxUI Its / £.CI^^ 


2E8E 


: CRLL 


RRflMa 1 7PPCI 

wrxLil IC / CU 


2E91 


: ST 




2E94 




RRHMO s 7FFR 


2ES6 ; 


• TFn 


fivA^zi'? \rR 


2E93 ; 




RRHNia ^ 7PDO 

UlNUI re I CCHH 


2F9B ■ 


Al lU. 


> 1R 




3 1 


G > □ JSC ,v} OjMc. 


2ER0 ; 


Al IL. 


^ 1R 


2ER2 1 


. 5j 


a s A'^^F a \ p.'^A'y 


2Efl5 ; 


• rot 1 




2ER8 ; 


: BR 


ursui Its / ^wPO 


2Eflfl i 


• nn R 


A'^^Q 


2ERC : 






2EB0 ; 






2EB7 i 


; DRDD 


a\A'^^7 AtA'^^F 
t= / u«jv3c. / ts / aw*TC 


2EBfl : 




> nnn? TD a t A'^c:ci 


2EC1 




t! / 003IU i 6 / O J*i^ 


2EC4 : 








riTMr 








A \ A'3P 1 \ CC 

1 , >rr 




RR 
□in 


UrsUnC! > cXMf 


2ECD ! 


; DINCT 




2ECF ! 


: DINC 


6 > 834E 


2ED1 ! 




wrsUi Its / cJCaxl 


2ED3 : 




AvA'aco a^A'^^F 


2ED6 : 


; ST 


0>A'^4Q A>A'^47 

tS / 0«JMrl / " / Ljt_)M 


2ED9 ! 


' MnUF 

1 luvw 




7FFR ■ 


l-HI_l. 








A\ A'3P'7 


7FFR • 


HFr 




7FF7 • 


' RR 




2EE9 : 


THF 




•pppr , 


RR 




7FFF • 




AvA'S^Q \Pn 


2EF1 : 


BR 


RRflNta s 7PPP 


2EF3 i 


; CLR 


§>fl34C 


2EF5 : 


; CLR 


e>634D 


2EF7 1 


RR 


^iRnMa^9P1P 






A \ AQDICI 

G > O Juki 


2EFB : 


■ n R 


6 / O Jul- 


2EFD : 


THF 




7FRn • 


RR 
□in 




7FR7 • 

^1 Cl^ « 


PRT 




2F05 : 


BS 






roi 1 




2F0R : 


CEQ 


@>B342 6)A30a 


2F0D : 


BS 


GR0M§>2F11 


2F0F : 


INC 


@>8300 



Print quotation mark 
Fetch byte 
Save on FflC 
0? 

Yes, jump 
Fetch byte 



Quotation mark, then twice 



Print byte 
Print byte 

Till string end 



Print quotation mark 
Space 

Token for line number ? 

Fetch 1st byte 

Fetch 2nd byte 
Uford complete 

Convert integer into ASCII and print 

1st table 
Length of token 

FROM GR0M§>285C(@>834RJ Fetch pointer to table 
Beginning with token 

FROM GROMe>0000(§>8352) Fetch first token 
Right? 



End of list ? 
Next token 
Next table 
Length greater 

Pointer minus length 

FROM GROM§>0000(§>8352) Fetch byte 

and write byte 

Increase pointer 

Length minus 1 

Till length 

Higher or equal token ,? 

No, start again 

Token #? 

No , i ump 



New start again 



R5CII 

ASCII 9 
No number 

Convert in integer 



Flag digit 
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2F11 : RTN 



c.r \£. 


nn p 

lJt_l_r\ 






£.\ 11 


CT 

3 1 




Rvtp nn >fi301 


c.\ 1 / 


m iR 




T n 4* ono r 


tr IH 


rwF 
i_nc 


e / OJtJ 1 f /KjH 




^1 1 u 




r;RnM£i>7F'^R 
urxu^i Its / ^1 


End 


9F1F 














No ovGpf Low 












rmT 




new 3Lai w aijaxii 












nonn 

UHUU 








T Kir 








Lbk 


B > Od4H , > lolci 


- 

Nsga 1 1 ve f 




Br? 




Error 








Nsx t by 




RR 

Din 


RRnMa)7F14 


cjiiu Mcw 9bai w a^uxii 


2F3B 


DST 


§) 8344. 6) 8340 


Line number 


2F3E 


DCZ 


@>834P 


0? 


2F40 


B5 


eR0M§>2F43 


Error 


2F42 


RTN 







2F43 


CRLL 


GROM@}4D00 


Scroll 


2F46 


DCLR 


§>8344 


No line number 


2F48 


CALL 


GR0Me>2D99 


Error 


2F4B 


DflTR 


>20 


Bad, I ine number 


2F4C 


DflTR 


)D9 


2F4D 


BR 


GROM§>2018 


Reset cursor position 


2F4F 


CALL 


GR0Me>2C75 


Line end, skip spaces 


2F52 


BR 


6R0Me>2C4D 


Syntax error 


2F54 


RTN 






2F55 


CRLL 


6R0M§>2FE3 


Write data block 


2F56 


XML 


>1B 


Fetch byte 


2F5P 


CZ 


e>a342 


Line end? 


2F5C 


RTNL 







Find line number in line table: 

2F5D : DST e > 832E , e > 8332 End line table on actual line pointer 

2F60 : DSUB §>832E,>0003 -3. on line number 

2FB4 : DCHE VDP*>832E, 6)8344 Line number greater? 

2F68 : BR GR0M@>2F6F No, go on 

2F6fl : DCEQ VDP* > 832E . @ ) 8344 Line number equal? 

2F6E : RTNC Yes, return condition bit set 



2F6F : DSUB §>832E.>0004 Next line 

2F73 : DCHE e>a32E,§>fl330 Even higher than end of line table? 

2F/6 : B5 6R0M§)2F64 fes , go on searching 

2F78 : DST e>832E ,e>8330 

2F7B : RTN 



Convert integer into ASCII: 




2F7C 


CLR 


@>a361 


Number of characters 


2F7E 


ST 


e>8367. >B7 


Pointer to character 


2F81 


DCLR 


e>a35c 




2F83 


DEC 


e)8367 




2F85 


DDiy 


e>835C. >000A 


Decimal 


2F89 


ADD 


e>835F, >30 


ASCII 


2F8C 


ST 


*>8367,§>835F 


On stack 


2F30 


DST 


§>835E,@>835C 


Go on with rest 


2F93 


INC 


e>8361 


Next digit 


2F95 


DCZ 


e>835E 


Already 0? 


2F97 


BR 


6R0Me>2F81 


No , go on 


2F99 


RTN 
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2F9P1 ; 


; CRLL 


6R0Me>2F7C 


Convert integer into ASCII 


2F9D ; 


; 5T 


e>8342,^f)B3B7 


1st character 


2FR1 


: CRLL 


GR0M©>2FE3 


Print 


2rH4 i 


1 INC 


@ > 8367 




2FP6 : 


; DEC 


e>8361 


Till all characters 


2FR8 ; 


: BR 


6R0M§>2F9D 


Loop 


2FRR ; 


; RTN 





D5T 

CRLL 

ST 

ROD 

DINC 

INC 

DEC 

BR 

RTN 



e>a35E,VDPit>a302 Fetch number from VDP 
6R0M§>2F7C Entry without VDP, convert 

VDP*) 8320, 8387 On screen 



Convert integer into RSCII and print on screen 

2FRB — - — 

2FRF 
2FB2 
2FB7 
2FBB 
2FBD 
2FBF 
2FC1 
2FC3 



into RSCII 



VDP4t>8320,>60 
@>8320 
§>8367 
6 > 8361 
GR0M§>2FB2 



Rdd offset 
Cursor +1 
Pointer +1 
End of digits? 
No, go on 



Fetch 1st token of next line : 

2FC4 : D5UB §>832E, >0004 Actual line pointer -4 

2FC8 : CZ e>8369 6R0M flag 

2FCB : BR 6R0M@>2FDB 6R0M jump 

2FCD : DST § > 832C , WDPif > 832E Hddress line on text pointer 

2FD1 : AND §>832C,>7F >0? 

2FD4 : BR 6R0M§>2FDD Yes, jump 

2FD6 : MOVE >0B02 TO e>832C FROM GROMe>0000(§>832E) Set text pointer from 6R0M 

2FDD : XML >1B ; Read 1 byte on >a342 

2FDF : RTN 



2FE0 
2FE3 
2FE6 
2FE8 
2FEB 
2FEF 
2FF3 
2FF7 
2FF9 
2FFB 
2FFE 



ST 
CH 
BR 

CALL 

D5UB 

ST 

ADD 

DINC 

INC 

ST 

RTN 



§>8342,>22 ASCII for " 

§>63B6,@>8307 Enough space? 
GR0M§>2FEF Yes, go on 

GROMe>401A No, write data block 

e>8320,>0020 New start point 
VDP*>8308,e>8317 Write offset 
VDP*> 8308, e> 8342 Add or write byte 
§>8308 Address plus 1 



e>8306 
e > 8354, e> 8342 



Actual position in data block 
Save from >a354 



Prescan: 




2FFF : 


: DST 


6)8306, >000R 


3003 : 


: AND 


§>8388,>DF 


3007 ; 


: DC2 


@>8344 


3009 ; 


! BR 


GROMe>301C 


300B : 


! DST 


§>a32C, >0320 


300F : 


1 XML 


>1B 


3011 : 


; CRLL 


GROMe>4D00 


3014 : 


1 ST 


6)8316, )01 


3017 ; 


; CRLL 


GROMe)306D 


301 A ; 


: BR 


GROMe)3028 


301 C 1 


! CRLL 


GROMe)302B 


301 F ; 


; AND 


e>8388,>10 


3023 : 


! DST 


§)83C0, >3567 


3028 : 


: B 


6ROM6)4D04 



Clear bit 3 
Run flag? 
Yes, jump 
Text pointer 
Fetch byte 
Scroll 
Set flag 
Proper prescan 
Execute 

Proper prescan 

Reset all bits except bit 3 

Execute Basic 



302B 1 


: DCLR 


6)8316 


302D ; 


: DST 


6)832E,e)a332 


3030 I 


: DADD 


6)832E,>0003 


3034 : 


: DCLR 


e>833E 


3036 ; 


; DST 


6)8340,6)8330 


3039 ; 


: CZ 


6)8389 


303C : 


: BS 


6ROMe)3041 



End line list 

Pointer to symbol table 

Start line list on free space symbol table 
In GROM? 
No , j ump 
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303E ! 


: D5T 


§> 6340, §> 6370 


Top memory on free space for symbol table 


3041 ; 


: CLR 


§>6343 


Option base 


3043 I 


: DDEC 


e>6340 


-1 


3045 : 


: D5T 


6)6316, e>6340 


Free space symbol table on start string space 


3046 : 


: DDEC 


6)6316 


-1 


304n : 


: D5T 


6)6310,6)6316 


End string space (low address) 


304D : 


; OR 


6)6366, )60 


Set bit 


3051 i 


; D5T 


6)6312,6)6330 


Start line list 


3054 : 


: DINCT 


6)6312 


+2 


3056 : 


: DCEQ 


6)632E, 6)8312 




3059 : 


: BR 


GROM6)3067 


Program, jump 


305B ; 


1 CZ 


6)8317 


Flag? 


305D : 


: B5 


6ROM6)3066 


305F ; 


; DCLR 


6)6344 


Clear run flag 


3061 : 


; COLL 


5R0M6)2D99 


Error 


3064 : 


; DOTO 


)20 


For-next error 


3065 \ 


; DOTO 


)F9 




3066 : 


; RTN 






3067 : 


: COLL 


GR0Me>2FC4 


Fetch byte from first line 


306fl : 


; OND 


6)6316, )02 


Clear all except bit 6 


306D ; 


1 CEQ 


6)6342, )80 


Token DIM? 


3070 ! 


1 BR 


6ROM6)3081 


No , j ump 


3072 ; 


; COLL 


6R0M6)31E5 


3075 : 


; CEQ 


6)6342, )B3 


Token ,? 


3078 ; 


; BS 


GROM6)3072 


Yes, once more 


3070 ; 


: BR 


6R0M6)3BflF 




307C ! 


! COLL 


6R0M6)2D99 


Error 


307F ; 


; DOTO 


)20 


Bad name 


30fi0 : 


i DOTO 


)40 




3081 : 


; CEQ 


6)6342, )3E 


Token option? 


3064 : 


: BR 


6RGM6)30C5 




3066 : 


: COLL 


GR0M6)31D1 


Test 


3085 : 


! COLL 


6R0M6)3461 


Fetch byte 


306C ; 


; CLOG 


6)6316, >02 


Bit 6 set ? 


306F ; 


; BR 


6R0M6)31D6 


No , i ump 


3091 i 


; COLL 


GROK6)30B9 


Token base? 


3094 : 


! DOTO 


)F1 




3035 ; 


; COLL 


GROM6)30B9 


Token string? 


3096 : 


: DOTO 


)C6 


3099 : 


; COLL 


GROM6)3069 


Length 1 ? 


309C ; 


: DOTO 


)01 


309D : 


: CLR 


6)6343 




303F ! 


; SUB 


6)6342, )30 


Integer 


30P2 : 


: B5 


6ROM6>30OO 


Jump if 


30fl4 ; 


: DEC 


6)6342 


-1 


3006 ; 


: BR 


GROM6)30C0 


Error, if smaller 


3006 ; 


: INC 


6)8343 


Therefore option base 1 


3000 ; 


: OR 


6)8316, >02 


Set flag 


30OD ; 


: XML 


)1B 


Fetch byte 


30flF ; 


: CZ 


6)8342 


End of line? 


30B1 ; 


: BR 


GROM6)30C0 


No, error 


30B3 : 


: CLOS 


6)8316, )01 


Direct mode? 


30B6 : 


: B5 


6ROM6>3056 


No, go on to program end 


30B6 : 


1 RTN 




Return 


30B9 : 


; FETC 


6)8340 


Data on FOC 


30BB : 


: CEQ 


6)8342,6)8340 


Token O.K.? 


30BE ; 


; BS 


GR0M6)3481 


Fetch next byte and return 


30C0 ; 


: COLL 


6R0M6)2D39 


Error 


30C3 ; 


: DOTO 


)20 


Incorrect statement 


30C4 ; 


: DOTO 


)2C 




30C5 : 


! CEQ 


6)8342, )69 


Token DEF? 


30C& : 


; BR 


GR0M6)3155 


No , i ump 


30CO : 


: COLL 


GR0M6)31D1 
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30CD 


: OR 


30D0 




30D3 




3007 ; 




30D9 ; 


■ DR 


30DC 


: OR 


30E0 1 


: CRLL 


30E3 ; 


: RND 


30E7 ; 




30ER 


: DRTR 


30EB 


! CRLL 


30EE 


: DRTR 


30EF 


■ 1 lUVW 


30F6 


» UZJ 1 


•30Ffl 




30FD ; 


■ 


30FF ; 


: D5UB 


3102 


: DRDD 


3106 1 


: D5T 


31 0n 1 




310F : 


. [j5j 


3113 : 


! DDEC 


3115 : 


: CZ 


3117 ; 


: BS 


3119 ! 


: CLOG 


311C ; 


■ n^ 

a J 


311E ; 




3121 i 




3123 i 


■ rpo 


3126 


. Q5 


3128 1 


! XML 


31 2R : 


: BR 


312C i 


: OR 


31 2F ; 


! CRLL 


«J 1 


nrpn 




a J 


J 1 JO 


■ PRT 

Uj 1 


31 3E I 


! D5T 


3142 ; 


; D5T 


3146 : 


. BP 


3146 : 


. CRLL 


314B ' 


. XML 


31 4D i 


i BR 


31 4F : 


1 DST 


3153 ! 








3158 ! 




31 5R ; 


• CFQ 


31 5D i 


> 55 


315F i 


! CEQ 


3162 1 




3164 ; 


• roi 1 

I— HI— L. 


3167 i 


; BR 


316S i 


WC.UI 






316E 1 




3171 


' RR 


3173 : 


■ INC 


3175 : 


1 BR 


3177 ! 


. CRLL 


317fl ! 


1 DRTR 


31 7B : 


I CZ 


31 7D ! 


: B5 


'^7F ! 


: CLOG 



Set flag for DEF 
Entry in symbol table 
Dimensions? 
No , 3 ump 
Set flags 



Ent ry 
Reset 
Token 



in symbol table 
)? 



Token =? 



Fetch 42 bytes from symbol 



VDP 



e>8316, >84 
6R0M§>31E5 
VDP*>833E,>07 
6R0M@>3177 
@>8316, >80 
e>8388, >08 
GR0M@>31E8 
e>8388, >F7 
GROM@>30B9 
>66 

GROMe>30B9 
>BE 

>002fl TO VDPe>0320 FROM VDP*>833E 
table 

e > 8300, VDP§> 0324 Pointer to name 
e>8389 In 6R0M? 

GROM§>310H No, then jump 

e>8300,e)833E Computer pointer for 
@>6300, >0320 
VDP@> 0324, @> 6300 and write in copy at >0320 
e>a340,VDPe>0002(e>a33E) Pointer to free space symbol table 
@>633E,>0320 Text pointer 
e>8340 -1 
e>8342 End of line 

eR0M§>314F ? 
e>8342,>80 Token? 
GR0Me>312C No, jump 

§>8342,>C8 String? 
GR0Me>3148 Yes, jump 

e>8342,>C7 String? 
6R0Me>3148 Yes, jump 

>1B Fetch byte 

6R0M@>311S Go on 

§>8316,>a0 Set flag 

GR0Me>31ED Symbol entry 

§>833E,>0320 Text pointer >0320? 
GR0M§>3115 Yes, go on 

VDP@ > 0002 ( e > 833E ) , VDP§ > 0322 
VDP§>0322,§>833E Save pointer symbol table 



e>833E,>0320 
GR0Me>3115 
GR0Me>34a6 
>1B 

6R0Me>3115 
@>833E,VDPe>0322 
GROMe>30B3 

§>8342,>9R 
GROMe>30B3 
•§>8342,>92 
6R0Me>31CC 
e>8342, >93 
6R0Me>3169 
6R0M§>31D1 
GROM§>3056 
e>8342, >87 
6R0M§>31CC 
§)a342, >6C 
6R0Me>31R2 
§>8317 
6R0M§>31CC. 
6ROMe>30B9 
>BE 

e)8342 
GRQMe>30B3 
§>8342, >80 



Pointer symbol table 

Fetch length byte string 
Fetch byte 
Go on 

New pointer to symbol table 
End 

Token REM 

Yes, go on, line is of no interest 
Token INPUT 

Token DRTR 

Test direct mode 
Go on 

Token G05UB 
Forget 
Token FOR 

Loop counter 
Forget at 
Token = 

Loop end? 

Yes, from start i.e. return at direct mode 
Token? 
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3182 : 


B5 


GR0M§>3193 


No , j ump 


3184 : 


CEQ 


e>8342, >C8 


String? 


3187 : 


BS 


GR0Me>319B 


Yes, jump 


3189 : 


CEQ 


e>8342, >C7 


String? 


31 8C : 


BS 


6R0M§>319B 


Yes, jump 


31 8E : 


CRLL 


GR0M@>310B 




3191 : 


BR 


GR0Me>317B 


Go on 


3193 : 


OR 


6)8316, >80 


Set flag 


3136 : 


CRLL 


GR0M§>31E0 


Symbol entry 


3199 : 


BR 


GR0Me>317B 


Go on 


31 9B : 


CRLL 


GR0M§>34a8 


Fetch length byte 


31 9E : 


XML 


>1B 


Fetch byte 


31 R0 : 


BR 


GR0Me>317B 


Go on 


31 R2 : 


CEQ 


e>8342, >35 


Token NEXT 


31 R5 : 


BR 


GR0Me>31B3 




31R7 : 


CALL 


GR0M§>31D1 


Test on direct mode 


31Rfl : 


DEC 


e>8317 


Loop counter 


31 RC : 


C6E 


@>8317, >00 


Negative? 


31 RF : 


BR 


GROMe>3061 


For-Next error 


31B1 : 


BR 


GR0Me>317B 


Go on 


31 B3 : 


CEQ 


§>8342, >68 


Token return 


31 BB : 


BS 


6R0M§>31CC 


Forget 


31 B8 : 


CEQ 


@>8342, >9B 


Token ON 


31BB : 


BS 


GR0Me>31CC 


Forget 


31 BD : 


CEQ 


e>8342, >64 


Token IF 


31 C0 : 


BS 


GR0M§>31CC 




31 C2 : 


CEQ 


§>8342, >85 


Token GO 


31 C5 : 


BS 


GR0M§>31CC 




31C7 : 


CEQ 


@>8342, >a6 


Token GOTO 


31 CR : 


BR 


GR0Me>317B 




31 CC : 


CRLL 


GR0Me>31D1 


Flag byte 


31CF : 


BR 


GR0Me>317B 




3101 : 


CL06 


e>8316, >01 


Direct mode? 


3104 : 


BS 


GROMe>30Ba 


No , j ump 


3105 : 


CRLL 


GR0Me>2D99 


Error 


3109 : 


DRTR 


>20 


Can' t do that 


31 OR : 


DRTR 


>B0 




31 DB : 


CEQ 


e>a342. >C9 


Token line number 


31 DE : 


BR 


6R0Me>31E2 


No , 3 ump 


31E0 : 


DINCT 


§>832C 


Text pointer 


31 E2 : 


XML 


> IB 


Fetch byte 


31E4 : 


RTN 






Symbo I 


en t ry 


into table: 




31 E5 : 


CRLL 


GR0M§>34ai 


Fetch byte 


31 E8 : 


CLOG 


§>a342, >e0 


Token? 


31 EB : 


BR' 


6ROM§>30C0 


Yes, jump error 


31 EO : 


5T 


e>8359, >49 




31F0 : 


OST 


e>a30c,e>a32c 


Text pointer 


31F3 : 


DOEC 


@>830C 


-1 


31F5 : 


CEQ 


e>a359, >5a 




31 F8 : 


BS 


GROM§>307C 


Fetch name on FRC 


31Ffl : 


INC 


§>a359 


+ 1 


31 FC : 


5T 


*> 8359,6)8342 


Byte on FRC 


3200 : 


XML 


) 1B 


Fetch byte 


3202 : 


CGT 


@)8342, )00 


Token? 


320S : 


BS 


GR0Me)31F5 


No, fetch entire name 


3207 : 


OST 


e)836C ,§>a32C 


Text pointer 


320R : 


DOEC 


e)a36c 


Minus 1 


320C : 


CEQ 


*)8359, )24 


$ (String) 


3210 : 


BR 


GR0Me)3215 


No string, jump 


3212 : 


OR 


6)8316, )10 


String flag 


3215 : 


SUB 


6)8359, )4R 


Length 


3218 : 


INC 


6)8359 
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321fl : CEQ 6)8342, )B7 Token (? 

321 D : B5 6RGM§>326B Yes, jump 

321F : CLOG 6)8316, >a0 Bit set? 

3222 : BR 6R0M§)3223 Yes, jump 

3224 : CLOG @)8316,)04 Bit 5 set? 

3227 : B5 6ROMe>30C0 No, error 

3229 : DDEC @>832C Text pointer minus 1 

322B : DST §)830E,e>832C 

322E : CLR §)83B8 

3231 : ST §)a310,>B8 

3234 : CLOG §>a36a,)08 Flag byte bit 4 set? 

3238 : BR GR0Me)325B Yes, jump 

323R : XML )1B Does an entry already exist? 

323C : BR 6R0M@)325B 

323E : DINC e)a32C Text pointer 

3240 : CLOG 6)8316, >80 Bit set ? 

3243 : BS 6R0Me)32E6 

3245 : ST 6 > 8300 , VDP* ) a34R Fetch from symbol table byte 

3243 : CLOG 6)8316, )04 

324C : BR 6R0Me)32EB Error 

324E : RND 6)8300,) 07 Dimensions 

3251 : CEQ *) 831 0,6) 8300 Equal ? 

3255 : BR GR0Me)32E6 No, error 

3257 : OND 6)8316, )03 Bit 6 and 7 only 

325R : RTN 

Normal variable: 

325B : MOVE )0010 TO e)835C FROM 6)a34R Save name on RRG 

3260 : DST 6)8314, )000E Length of entry for numerical varibles 

3264 : CLOG 6)8316, )14 String or DEF? 

3267 : BS 6R0M6)3384 No, jump 

3269 : BR GROMe)33a0 Jump 

Data field: 

326B : DST e)a30E,6)832C Text pointer 

32BE : ST 6)8372, )B7 Pointer to data stack 

3271 : MOVE )0010 TO e)a35C FROM e)a34R 

3276 : CLOG 6)8316, )84 DEF? 

3279 : BR GR0Me)32fl9 Yes, jump 
327B : XML )1B Fetch byte 
327D : CRLL 6ROM6)30B9 String? 

3280 : DHTR )C8 

3281 : CRLL 6R0Me)2CFC Change digit into integer 
3284 : BS 6R0M6)326F Error 

3286 : CZ e)834fl 0? 

3288 : BR GR0M6)3294 No, jump 

328R : CHE 6)8348,6)8343 Greater option base? 

3280 : BS GR0M6)3294 Yes, jump 

328F : CALL GRCMe)2D99 Error bad value 

3292 : DRTR )20 

3293 : DRTR >64 

3294 : PUSH 6)834B Number on data stack 
3296 : PUSH 6)834fl 

3298 : CH 6)8372, )BD Stack to high? 

329B : BS 6ROM6)30C0 Error 

329D : CEQ 6)8342, )B3 Token ,? 

32R0 : BS 6R0Me)327B Yes, go on 

32R2 : CEQ 6)8342, )B6 Token )? 

32R5 : BR 6ROM6)30C0 No, error 

3XH7 : BR GR0M6)32F3 Make an entry 
DEF: 

32R9 : ST 6)8300, )01 

32RC : CRLL 6R0Me)3481 Fetch byte 

32RF : CLOG 6)8342, )80 Token? 

32B2 : BS 6R0M6)32HC No, jump 

32B4 : CEQ 6)8342, )BB Token )? 

32B7 : BS 6R0Me)32EB Yes. jump 

32B9 : CLOG 6)8316,) 04 
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32BC : 


: BR 


GROMe>30C0 


Error 


32BE : 


CEQ 


e>8342. )C7 


String? 
Yes, jump 


32C1 : 


B5 


6R0M@>32DD 


32C3 : 


CEQ 


§>8342, >B7 


Token (? 


32C6 : 


BS 


6R0M§>32E2 


Yes, jump 


32C8 : 


CEQ 


e>8342, >B3 


Token ,? 


32CB : 


BR 


GR0M§>32RC 


No , j ump 


32CD : 


C6T 


@>8300, >01 


Greater 1 


32D0 : 


B5 


eR0Me>32RC 


Yes, go on 


32D2 : 


PUSH 


e>8307 


On data stack 


32D4 : 


PUSH 


§>8306 




32D6 : 


CH 


e>8372, >BD 


Data stack to high? 


32D9 : 


BS 


6ROM@>30C0 


Yes, error 


32DB : 


BR 


GR0Me>32RC 


Go on 


32DD : 


CRLL 


GRQMe>3488 


Fetch Length byte 


32E0 : 


; BR 


GR0M§)32RC 


Go on 


32E2 : 


INC 


@>8300 


+ 1 


32E4 : 


: BR 


GR0M§>32RC 


Go on 


32EB : 


: CALL 


GR0M§>2D99 


Error 


32E9 : 


DflTR 


>20 


Name conflict 


32E0 : 


; DBTP 


>RF 




32EB : 


; DEC 


@>8300 


-1 


32ED : 


; BR 


GR0Me>32RC 


Go on, if not 


32EF : 


: PUSH 


§>8307 


On data stack 


32F1 : 


; PUSH 


@>&306 




32F3 ! 


; ST 


@ > 8300, @> 8372 


Data stack pointer 


32F6 ! 


; SUB 


§>8300, >B7 


Minus 183 


32F9 ! 


; SRL 


e>8300,>01 


Divided by 2 


32FC : 


; CGT 


@>8300, >03 


Greater than 3? 


32FF : 


; BS 


GROMe>30C0 


Yes, error 


3301 ! 


: PUSH 


e>8300 


On data stack 


3303 : 


; ST 


e>8310.§>a372 


Old data stack pointer again 


3306 : 


; MOVE 


>0010 TO e>834fl 


FROM §>835C Save name on 


330B : 


; XML 


>16 


Search variable name 


330D : 


; BR • 


GR0Me>3314 


Not found, jump 


330F : 


! DST 


e>832C,§>830E 


Text pointer 


3312 ; 


; BR 


6ROM8>3240 


Finished 


3314 ; 


; CLOG 


e>8316, >04 


DEF? 


3317 1 


; BR 


GROMe>3380 


Yes, jump 


3319 ; 


: ST 


e>8310,§>8372 


Save data stack pointer 


331 C : 


: DEC 


e>8372 


-1 


331E 1 


: ST 


@>834R,*>837C 


Fetch from data stack 


3322 ; 


: ST 


e>834B.*)a37C 




3326 ; 


; DINC 


§>834fl 


+ 1 


3328 ; 


: CLR 


@>8308 




3320 : 


: ST 


6 > 8309, @> 8343 


Option base 


332D : 


: DSUB 


e>834R,e>8308 




3330 ; 


: DST 


e>8314,e)834fl 


Number in the dimension 


3333 ; 


: B 


6ROMe>3350 




3336 ; 


: ST 


@)834R,}t>837C 


Fetch from data stack 


3330 ; 


: ST 


e>834B,*>837C 




333E : 


: DINC 


e>834R 




3340 


: DSUB 


@>834R.@)8308 


Option base 


3343 


: DST 


e>8302,e>8314 




3346 


: DMUL 


e)8302,e>834R 


Total number 


3349 


: DCZ 


@>8302 


Overf low? 


334B : 


: BR 


GR0M§>344B 


Error 


334D : 


: DST 


@>8314,@>8304 


Total number 


3350 : 


: CEQ 


e>8372, )B7 


Lowest value reached? 


3353 


: bK 


GR0Me>3336 


No, go on 


3355 


: CLOG 


e>8316, )10 


String? 


3358 


: BS 


6R0Me>3365 


No , j ump 


335fl 


: CLOG 


§>8314, >E0 


More than 8191? 


335D 


: BR 


GR0M§>344B 


Then error 


335F 


: D5LL 


@>8314, >0001 


*2 


3363 


: BR 


GR0Me>336E 


Go on 
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33B5 

3368 

336n 

336E 

3372 

3374 

3378 

337B 

337E 

3380 

3384 

3387 

3389 

338C 

338E 

3390 

3392 

3394 

3397 

339R 

339D 

3300 

33R3 

33R5 

33RR 

33RD 

33B0 

33B2 

33B5 

33B7 

33BR 

33BD 

33BF 

33C2 

33C5 

33C9 

33CB 

33CD 

33D0 

33D3 

33D5 

3308 

33DB 

33DE 

33E1 

33E4 

33E6 

33EC 

33EF 

33F3 

33F5 

33F9 

33FD 

3400 

3402 

3405 

3407 

340R 

340C 

340F 

3411 

3417 

3419 

341E 

3420 

3422 



CLOG 
BR 

D5LL 

DADO 

CLR 

ST 

SLL 

DRDO 

BR 

D5T 

CZ 

BR 

CLOG 

BS 

C2 

B5 

CLR 

ST 

DST 

CALL 

DSUB 

DST 

DINC 

MOVE 

DST 

CRLL 

CLR 

CLOG 

BS 

OR 

CLOG 

BS 

OR 

ST 

ST 

CZ 

BS 

OR 

CLOG 

BR 

OR 

ST 

DST 

DST 

DSUB 

DINC 

MOVE 

DST 

CLOG 

BR 

DST 

DRDD 

CLOG 

BR 

CH 

BR 

ST 

INC 

CHE 

BS 

ST 

INC 

ST 

DDECT 
DINCT 
BR 



@>8314, >F0 
GR0Me>344B 
§>8314, >0003 
@>8314, >0006 
@>834fl 

@>834B,*>8310 

@>a34B, >01 

e>8314,e>834fl 

GR0Me>3384 

e>8314, >0008 

§>8369 

6R0M§>338E 

e>a316, >01 

GR0M§>33RR 

@>836B 

6R0Me)33RR 

§>8300 

e>8301 ,e>836B 

@>834R,§>8300 

GR0M§>3493 

@ > 8340, e> 8300 

@>830C,e>8340 

@>830C 



More than 4035? 
Error 

Plus 6 



for basic entry 



Number of dimensions from data stack 
*2 (Word) 

Total number of bytes 

Length 8 for string 

6R0M flag? 

Yes, jump 

Direct mode? 

No , j ump 

0? 

Yes, jump 
Length 

Fetch space for entry into symbol table 
Length 

Plus 1 



§>8300 TO VDP*>830C FROM §>835C Name in symbol table 



§>834fl,e>8314 
6R0Me>3493 
§>834R 
§>831B, >10 
GR0Me>33BR 
§>834R. >80 
@>8316. >04 
6R0Me>33C2 
-@>834R, >40 
e>8372,e>8310 
§>83S0,')t>837C 
@)6350 
6R0M§>33D8 
e>834R,@>8350 
@>8316,>04 
6R0Me>33D8 
@>8316, >02 
@>834B,e>836B 
§>834C,§>833E 

e)a34E,e>830C 

@>8340,§>8314 
6)8340 



Length on FRC 
Fetch space in symbol table 

String? 
No , j ump 



(User defined function) 
pointer 

from data stack 



Set bit 
Bit 6 set 
No , j ump 
Set bit 1 
Basis data stack 
Fetch dimensions 
0? 

Yes, jump 
Dimensions 
Bit 5 set ? 
Yes, then jump 
Set bit 6 
Length of name 
Link to next entry 
Pointer to name 
Minus length of entry 
+ 1 

>0006 TO VDP*>8340 FROM §>834fi Write 3 words 
e>833E,§>a340 Pointer to first entry of symbol table 
6)8388, )08 Flag byte bit 4 set ? 

6R0M§)33F9 Yes, jump 

VDP§)03E0,§)833E Save pointer into VDP 
6)8340, >0006 

Bit 4 set ? 
Yes, jump 
Data on stack? 
No, then jump 
Data stack 
+ 1 

Rll bytes 
Jump , if all 

Write word from data stack 



6)8316, )04 
6R0M6>3424 
6)8372, )B7 
5R0Me)342R 
6)8372, >B7 
6)8372 

6)8372,6)8310 
GR0Me)342fl 

VDP6) 0001 (6)8340) ,*>8372 
6)8372 
VDP*) 8340,*) 8372 
6)8314 Number -2 

6)8340 Address +1 

6ROMe)340R Loop 
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3424 1 


: D5T 


VDP*>8340,e>836C Pointer in symbol table 


3428 1 


: BR 


6R0M§>3438 


Jump 


342R ; 


: D5UB 


@>8314, >0007 


Minus 7 


342E : 


: CLR 


VDP»>8340 


Clear area for the value 


3431 ! 


: MOVE 


e>8314 TO VDP§>00ai(§>8340) FROM VDP*>8340 Clear area 


3438 : 


; D5T 


e>8340,e>833E 


Pointer to first entry in symbol table 


343B : 


; DDEC 


6 > o34ld 


Pointer on free space for symbol table 


343D ! 


; RND 


§>8316, >83 


Only permit bits 0,6,7 as flags 


3440 : 


; CLOG 


e>8316, }80 


Bit set ? 


3443 : 


; BS 


6R0Me>344a 


No , i ump 


3445 : 


I D5T 


§>832C,e>830E 


New text pointer 




VMI 


>1B 


Fetch byte 


344fl : 


: RTN 






344B ; 


; CRLL 


6RGMe>2DS9 


Error 


344E ! 


: DOTR 


>20 


Memory full 


344F ! 


i DRTR 


>49 




Check 


if variable name is 


permi tted : 


3450 : 


; CHE 


§)8342, >30 


Greater or equal 0? 


3453 ; 


; BR 


GR0Me>345R 


No , j ump 


3455 ; 


; CHE 


e>8342, >3fl 


Greater or equal 9? 


3458 ; 


: BR 


6ROMe>2C80 


No, return condition bit set 


345fl : 


; CHE 


@>8342. >40 


Greater or equal @? 


34SD ; 


: BR 


BR0Me>3464 


No , i ump 


345F ; 


: CHE 


e>8342, >5E 


Greater or equal '^7 


3462 1 


: BR 


GROMe>2C80 


No, return condition bit set 


3464 ; 


; CHE 


e>8342, >5F 


Greater or equal _? 


3467 1 


: BR 


GROK§>3480 


No , i ump 


3469 ; 


; CHE 


@>8342, >61 


Greater or equal a? 


346C ; 


: BR 


GR0M§>3476 


No , } ump 


346E 1 


: CHE 


§>8342, >7B 


Greater or equal (? 


3471 ; 


; B5 


GR0M§>3476 


Yes, jump 


3473 ; 


: SUB 


e>ti342. >20 


Change into capital letter 


3476 : 


: CEQ 


e>8342, >60 


Equal '? 


3479 ; 


r B5 


GROM§>34e0 


Yes, jump 


347B ; 


: CHE 


6)8342, )7B 


Greater or equal <? 


34/E ; 


: BR 


GROM§>2C80 


No, return condition bit s6t 


3480 : 


: RTN 







3481 : XML >1B Fetch byte 

3483 : CZ e>8342 End of line ? 

3485 : BS GROMe>30C0 Yes, error 

3487 : RTN 



3488 : XML >1H Fetch byte 

348fl : DCLR e>8306 

348C : ST e>8309. 6)8342 Byte as word in )8308 

348F : DRDD 6 ) 832C . @ ) 8308 Text pointer now behind the string 

3492 : RTN 



Fetch 

3493 ; 

3436 : 

3499 ; 

349C : 

349F ! 

34R1 ; 

34R4 ! 

34fl7 ; 

34flR ; 

34RE : 

34B1 : 

34B3 ; 

34B6 ; 

34B9 ; 

34BC ; 



space 
DST 
D5T 
D5UB 
DCGE 
BS 

DSUB 

DST 

DSUB 

DSUB 

DCGE 

BS 

CALL 
DST 
DSUB 
DSUB 



for PRB or entry in symbol list 
§)834E,e)834fl Length 



§)834C,§)8340 

§)834C, 6)8318 

e)834C,@)834fl 

GR0M§)3492 

§)834H,e)S34C 

e)834C,§)831fl 

§)834C,e>836E 

e>834C, )0040 

§)ti34C.§)834R 

GR0M§>34C8 

GR0Me)4D18 

e)634C,e)831H 

e>834C,§)a36E 

@)834C, )0040 



Pointer free space symbol table 

Start of string space 

Enough space? 

Yes, end 

Free space 

String space 

+8^«^ for value stack 
Enough space? 
Yes, go on 
Garbage collection 
Compute once more 
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Not enough space, memory full error 
Start string space 

End of string space, therefore number 

End of string space 

Length 



34C0 : DST @>B34R,e>834£ 

34C3 : DC6E e>a34C,e>a34R 

34C6 : BR GR0Me>344B 

34ca : DST e>a34C,@>a3i6 

34CB : DSUB §>a34C,§>a3in 

34CE : DST ©>a34E,@>831R 

34D1 : DSUB @>831R,§>834P 

34D4 : DCZ @>a34C 

340B : BS GROM§>34E0 

34Da : MOVE §>a34C TO VDP§>0001 (@>a31R) FROM VDPe>B001 (§>834E) Shift strings 

34E0 : DSUB §>a3ia,e>834R New start string space 

34E3 : DST e>834C,e>a3ia On >834C 

34E6 : CLR @>e34E 

34Ee : ST e>e34F,VDPifr>834C Length 

34EC : DCHE §>831R,§>834C Below end of string space? 

34EF : BS 6R0M§>3492 No, end 

34F1 : DSUB @>a34C,@>a34E Pointer to beginning of string 

34F4 : DCZ VDP§>FFFD(e>a34C) Link pointer 0? 

34F3 : BS 6RGMe>350S O.k. go on 

34FB : DST @>a34R, VDPe)FFFD(e>a34C) Fetch Link pointer 

3501 : DST yDPit>834R,e>834C Set new pointer in variable list 

3505 : DSUB @>834C,>0004 Next string 

3503 : BR GR0M§>34Ea 

350B : RTN 

350C : DRTR >0000 

350E : DRTR >0000 



Error message : 
3510 : B 6R0M§>5B71 
3513 : B GR0Me>567D 
3516 : B GR0Me>4D7C 
3519 : B 6R0M§>4D81 



Incorrect statement 
Memory full 
Bad value 

String number mismatch 



CRLL CLERR: 
351C : CRLL 
351F : RLL 
3521 : ST 
3524 : CRLL 



GR0M§>37B4 
>80 

§>837F, >03 
GROMe>0012 



Fetch byte 
Clear screen 
XPT on 3rd line 
End 



Data for sound: 
3527 : DRTR >42,)0B,>12 



352R 
352F 

CRLL 
3538 
353F 
3542 
3545 
3547 
3549 
354C 
3550 
3553 
3557 
355B 
355D 
355F 
3561 
3565 
356B 
356E 
3571 
3574 
3576 



: DRTR 

: DRTR 

SOUND: 

: MOVE 

: CRLL 

: CGE 

: BS 

: DNEG 

: DCLR 

: DST 

: CRLL 

: DMUL 

: DDIV 

: CZ 

: BR 

: INC 

: ST 

: MOVE 

: CRLL 

: CALL 

: CGE 

: BR 

: MOVE 



>22, >00, >00, >00, >00 

>01 , >FF, >01 , >04, >9F, >BF, >DF, >FF, >00 



>0009 TO VDP@>03E2 FROM GR0Me>352F Write sound list 
GR0M§>37B7 
e>834R, >00 
GR0Me>354C 
e>a34R 
§>a3CE 
@>a310, >109R 
GR0Me>377D 
@>834R, >0006 
e>834R,>0064 
@>834B 
GR0M§>3561 
§>a34B 



Fetch first value 
Negative? 
No , i ump 
Number already positive? 
Stop sound process 
Limi t 

CFI for duration 
Compute duration, ^6 
divided by 100 
0? 

fit least 1 



VDPe>03E4,§)834B Duration in sound list 

>000L rO e>8300 FROM GR0M§>579R Constant values on >a300 

6R0M§>378F • Next value 

6R0M§>4F79 Check if numeric 

@>834R,>00 Negative? 

6R0M§>35C3 Yes, jump to noise 

>0008 TO e>835C FROM BR0M§>3527 Number on RR6 
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VMI 
ArlL 




FHTU 

1 Ul V 


JD/t : 


Ub 1 




Limi t 


dbo^ : 


LHLI_ 


UrXUrlG / d / Ob 


CFI for f r6C]u6ncy 


QCOC • 

JSOS : 




6 / OJMH ( / IlIIlII03 




QCfiQ • 

: 




r^PDMBs "^C^IR 

Uixune / 33 1 o 


Error 


"SCAD . 


ncor 
Ubr\t_ 




CK noi^inHir'Al Ivif UJn r rt 1 ) 
1 r L ptf r X uu xv-cj L L y x. wLii u* / 


J30r : 


br\L 






dbs^ : 


nno 
iJur\ 


* > 030H , e / 03HH 


UUlN / 03lu0 


Jb30 : 


TMi — r 


6 / 031uH 






TQI 1 


RRCIMB > ^RR^ 
UrxUl ixz / owuCJ 


Fstch nsxt vsLuB 3nd CFI 




own 






dbbr : 


T Ml" 


6 > oduo 


+ 1 


d3H 1 : 




G>03m^ < / DO 


TnUon "19 
1 OKcn J I 


JbHs : 


DC 

Ob 


ur\Un6 > dbc^ 


Yes 1 end 


dbMb : 


fen 


C > OdM^ 1 / 03 


1 oKen ; r 


JbHb : 


RR 


f^PnMBv'^dn 
urxUne / 33 1 lO 


Kin o p n p 


JbHa : 


VMI 

ArlL 


> 1 R 

> Id 


Pcs^^n nijro 


dbHU : 


bKL 


C ) od»JH / > 10*1 




obou : 




^ / 03luL t / IlIO 




JbOJ 


rpn 


A \ A'^CIQ > 

€ / OOlLlH f / mo 


'^f^rl cniinri nrnrocQnr rPr^dvy 


dbob : 


RD 
OK 


ursUrlc / 33QO 




dboo : 




UKUrie / d / or 


Fetch next value 


dbDD 


LH Li- 


i^PnMA \ ^P7Q 


String tag? 


dbob 


mp 
LUC 


S/OdHH ) >lfllO 


iNeyative— nuxsB 


JbL, 1 


on 


nRnMa>'^mn 


dbLd 


rpn 
LbU 


A \ A'SOIR \ PP 


No 1 se 


•acre 


RR 


r^pnMA \ 01 
uKune ) 33 1 la 




dbuo 






KJi rmhta n nnci^ioo anain 
llUinUc 1 ^lUaXvXVc atjaxii 


dbLH ; 


Lib 1 


Ana's in scmoiA 
c > od 1 lu , > loiuuo 


LiiTii t 


dbLk : 


LHLL 


oKUne > d / / u 


rPT 

Lr 1 


dbU 1 


npr 


Ai A'S^R 


M X nu s *! 


"sen's 
dbUd 


CT 

b 1 


AxA'SOQ AnA'S^R 
G > 03Il)3 I € / 0310 




dbUb 


nn 
! UK 


@>a30S, >E0 




dbUb 


LHLL 


GROMe>5600 


Fetch volume 


dbUL 


b 1 


VDPe>03E3,@>834B In Sound list 


dbtlC] 


RP 


6R0M§>35R1 


Go on 




ri R 

: LLr\ 


@>6310 




dbb*» 


: LZ. 


e>83CE 


Sound byte 


■ace "7 
dbc/ 


RC 

Ob 


GR0Me>35F9 


If 0, go on 


<3bC3 


. QrDhi 

: nLHIN 




Keyboard scanning 


dbcH 


RR 

ort 


6RQMe>35E4 




dbhL 


i~cn 
: LcU 


e>8375, >02 


Clear? 


dbcr 


RR 


6R0Me>35E4 


No, go on waiting 


dbr 1 


: L^ 


@>63&9 


GROM? 


dbr*4 


. RR 

: On 


6R0M§>35E4 


Yes , go on 




• R 


GR0M§>4E3a 


Program end 


dbrb 


: b 1 


§>fi400,«>a310 


Sound bytes in sound chip 


dbPt 


: INL 


§>8310 


Oil 


dbl^ld 


. rpn 
: LtU 


e>8310, >0P 




dbUd 


RR 

: tiri 


GR0M§>35F9 




dbUb 


: Ub 1 


e>834R, >03E2 


Sound list 


3609 


: I/O 


§>834fl, >01 


Print 


360C 


: BR 


GROM§>3620 


End 



CRLL HCHRR: 

360E : CRLL GR0Me>37DB 

3611 : DCZ e>834R 

3613 : B5 GR0M§>3B1D 

3615 : FMT 

3616 : ... 01('§>83B0' ) 

3618 : ... END FMT 

3619 : DDEC e>834R 

361 B : QR GR0M§>3615 

361D : ST e>837F,e>8: 



Fetch all particulars 
0? 

Yes, end 

1 byte on screen 

Till all bytes 
Loop 

Old screen line again 



End of the subprograms with variables: 
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. pen 


6>od4^, >DO 


3623 


: BR 


6ROM§>3510 


3625 


: XML 


>1B 




: LHLL 


uRunB>0012 


roi 1 






•acoQ 


. roi 1 


oKLfrIB>d/Ub 




: ULiC 


G > Od*»H 




: BS 


6RGMe>361D 


JD J 1 


: FMT 






: ... 01('e>a300' ) 










: ... END FMT 




. nncp 




dodo 


: ob 


oRUMe)do1D 


dOdH 


: 


e>od/t 


363C 


: dK 


uKUne)dbd1 


363E 


: INL 


@>fi37F 


dOMU 


: o 


oKUnBJdbdl 


LHLL 


puns . 
LnHrx : 




dO'Jd 


: LHLL 


oKUnOd/b/ 




ncT 


e)ad10, >00SF 


JO*tH 


: CRLL 


6R0Me>3785 


dDMU 


: DCHc 


e>634R, >0020 


dOO 1 


: UK 


oRuMb>3516 


rices 
dood 


: DsLL 


@ } a34R , > 0003 


dOO/ 


, nnnn 


«! > Od'tH , > Udluli3 


dOOD 


: Us 1 


e > odk)4 1 e > ad4H 


dOoc 


. pnnc 


> Ob 


<3DOI9 


. rpn 
: i_cu 


ood'lL, >bb 


oOui3 




uiTurie > do i a 


<3000 


: ULu 1 


e ) odU4 , e > od^4 


>3000 


. DO 


uRuMB > dOH3 


•3DDH 


: UbT 


B>835E,e>a304 


dooU 


: 05UB 


@>635£,§>a324 


do /id 


: D5T 


@>6306,6>636E 


db/d 


: OnOD 


@>6306,§>635E 1 


«30/D 


. nonn 

: UHUU 




•30/ H 


: ULnb 


B>odlH,B>o30b 1 


<30/ U 


: Db 


BRDMb > 3687 


30/ 1 


: CRLL 


GR0M§>51fl9 1 




: DCHE 


A* O^'^m A. ft^rt^ 1 

B)B31R,B>o306 1 


•3000 


: BS 


GR0M§>3513 1 


doo/ 


: D5UB 


§>a305, )000& 


dOOd 


: DST 


e>6300,e>a36E 


doot 


: DRDD 


e>a300, )0007 


doo2 


! DST 


§>a35C,e>836E 


dbos 


: DSUB 


e>a35c,e>8324 i 


dboo 


: BS 


6R0M©>3B3D 


dboH 


: LHLL 


uRUMB>Z01c 1 


dbdU 


: DST 


e>a324,@>a304 i 


dOHU 


: DRDD 


@)a36E,e>a35E i 


dbHd 


: DST 


§>a35E,§>a34E 1 


dOHO 


: DST 


§>a360,e>a350 i 


dOHO 


: DCH 


e>a350,>00i0 1 


dbHU 


: BR 


6R0M§>36B3 1 


dOHr 


: DST 


e>8360,>0010 1 


dOOd 


: ST 


e>834R,>30 1 


dbob 


: MOVE 


>000F TO e>a34B 1 


dbOD 


: DCZ 


6)8360 1 


dboU 


: BS 


6R0Me>36C4 


dbor 


: MOVE 


6)8360 TO 6)a34R 




: ST 


6)8311, >4R 1 


36C7 


: ST 


6)8310, >08 i 


36CR 


: CLR 


6)a30C 



)? 

Incorrect statement 
Fetch byte 
Subprogram end 



Fetch all particular items and set screen pointer 
0? 

Yes, end 
Print byte 

31 go on 

Till all 
Rll, end 
Line 0? 

No, print next byte 
Column plus 1 
Go on 



Fetch first value 
Limit 
CFI 

Greater or equal space? 
No, error 

*8, therefore address pattern descriptor table 
+ offset 
Save address 
Go on till ) 
String tag? 
No, error 

Higher basis of value stack? 
No, execute 
Rddress 

Bytes , be missing 
Top value stack 
Plus bytes 
+ 15 

Lower than string area? 
Yes, jump 

Garbage collection 
Enough space ? 
No, error 
-8 

Top value stack 
+7 

Top value stack 
Number of bytes 
Jump at 
Shift stack 

New basis of value stack 
New end of value stack 
Rddress of string 
Length 

Longer than 16? 
No 

Length is 16 
On FRC 16*) 30 
FROM 6)834R 
0? 

Yes, jump 

FROM VDP*t)835E Fetch string on FRC 
FRC 
8 
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3GCC 


. 5|_|_ 






^Rrp 


RT 




ntsttn uyvc r ruiii nMi_T 




rue 




Grsatsr 0? 


joud 


Dr\ 


RRDMfivQR'IR 


No / fir po r 


OOUO 


un 




wrea le r zi i 


JQUO 


RP 


RPHMA \ '3RP7 




ocnn ■ 


■ rwF 


B t A'^Rr > 4 1 

V / OOOw 1 / H 1 










Kin p n n 




ru 


a \ A^Rr \ AK 


Grsatfip F? 




RR 




No / G r PO r 




> Ri in 

DUD 




-30 


"^RPO 


ru 
i_n 




Gpsa^sr 10? 


QRPn 
ootiu 


RP 




No t j ump 




Rl IR 




Minus 7 




• PR 








Twr 






^RF? • 


> n nR 


§>6311, >01 


Every 2nd time 


"SRCQ 

JorH 


RP 


6R0M§>36CC 


Go on or 


"^RFr ■ 


• RT 


VDP*>8304,§>830C Write byte in pattern descriptor 


J/IOKt 




6 > 6304 


Increase address k^DP 






6)6310 


Loop counter for 6 bytes 


3704 ; 


; BR 


6R0Me>36CR 


Not yet 6 bytes, then return 


370B ; 


: BR 


6ROM§>3620 


End 



CRLL 


KEY: 






3708 


: CALL 


6R0Me>3/67 


Fetch first value 


370B 


: D5T 


§>8310, >0005 


Limit 5 


370F 


: CRLL 


6R0M§>3785 


CFI for keyboard mode 


3712 


: CRLL 


GROMe>5770 


Fetch numerical variable and scan keyboard 


3715 


: B5 


GR0Me>3722 


New key, then jump 


3717 


: CEQ 


e>837S, >FF 


No key 


371R 


: BR 


GROMe>3720 




371C 


: DCLR 


e>834R 


5tatus=0 


371E 


: BR 


6R0Me>3722 




3720 


: DNE6 


e>834R 


5tatus=-1 


3722 


: XML 


>15 


Transfer status to variable 


3724 


: D5T 


e>834R. )4001 


Repair the 1 


3728 


: CEQ 


6)8375, >FF 


No key? 


372B 


: BS 


GR0M§>3742 




372D 


: CHE 


§)8375, )64 


Key value greater 100? 


3730 


: BR 


GR0M@>373D 


No , go on 


3732 


: INC 


e>634R 


Exponent plus 1 


3734 


: SUB 


6)8375, >64 


Minus 100 


3737 


: ST 


e)834C. 6)83/5 


Key value one digit back 


373R 


: B 


GROMe)3740 




373D 


: ST 


6)8348.6)8375 


Key value in number 


3740 


: BR 


6R0Me)3744 




3742 


: DNEG 


e)834R 


-1 


3744 


: XML 


>15 


Transfer key to variable 


3746 


: BR 


6ROMe>3B20 


End 



CRLL 


J0Y5T: 






3746 


: CRLL 


GR0Me)3767 


Fetch value 


374B 


: D5T 


6)8310, )0004 


Limit 


374F 


: CRLL 


GR0Me)37/D 


CFI for mode 


3752 


: CRLL 


GROM6>5770 


Scan keyboard and fetch variables 


3755 


: ST 


6)8300,6)8376 


Y value 


3758 


: CRLL 


GR0Me)5755 


Transfer to variable 


375B 


: DST 


6)834R. )4001 


Repair 1 


375F 


: ST 


6)8300,6)8377 


X value 


3762 


: CRLL 


6R0Me)5755 


Transfer to variable 


3765 


: BR 


GROMe)3B20 


End 



3767 : CRLL GR0Me>37B4 
376fl : CALL 6R0M6)57R6 
376D : XML )1B 



Fetch byte and text pointer 
Check token ( 
Fetch byte 
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d/br 


: rHRb 


>B6 


Go on till ) 


3771 


: CEQ 


@>8342, >B3 


Token ,? 


3774 


: BR 


GROM@>3510 


No . P p rn r 


3776 


: XML 


>1B 


Fetch byte 


3778 


: RTN 




d//3 


: 051 


@>8310, >0010 


Set limit 


377D 


: CRLL 


GROMe > 378b 


CFI 


37fl0 


: DCZ 


@>834R 


0? 


3782 


: B5 


GR0M@>3516 


Error 


3784 


: RTN 






3785 


: CRLL 


GROM©>5740 


CFI 


3788 


: DCH 


@>834R, 6)8310 


Greater limit? 


378B 


: BS 


GR0Me>3516 


Error 


378D 


: RTN 






Set column and line for subprogram: 


378E 


: CRLL 


GR0Me>3767 


Next argument 


3791 


: D5T 


@>8310, >0018 


Limit 


3735 


: CRLL 


GR0M§>377D 


CFI 


3798 


: ST 


e>8302,©)837F 


Column screen 


379B 


: DEC 


e>834B 




379D 


: ST 


e>837E,@>834B 


Line screen 


37R0 


: CALL 


GR0Me>376F 


Next argument 


37R3 


: DST 


@>&310, >0020 


Limit 


37P7 


: CRLL 


GR0Me>377D 


CFI 


37Rn 


: DEC 


@>834B 




37RC 


: ST 


@>837F,e>a34B 


Column screen 


37flF 


: RTN 






37B0 


: DRTR 


>2020, >2020 




Fetch Basicbyte 




37B4 


: CZ 


@>8389 


6R0M? 


37B7 


: BR 


GR0Me>37BC 




37B9 


: DST 


§>832C,§>a356 


Text pointer 


37BC 


: XML 


>1B' 


Fetch byte 


37BE 


: RTN 




CRLL 


SCREEN: 






37BF 


: CRLL 


GR0M§>37B4 


Fetch byte 


37C2 


: CRLL 


GR0M©>57fl6 


Check ( 


37C5 


: XML 


>1B 


retcn Dyte 


37C7 


: PRRS 


>B6 


Fetch value 


37C9 


: CRLL 


6R0M§>3779 


CFI 


37CC 


: DEC 


@>a34B 


-1 


37CE 


: MOVE 


>0001 TO REG) 07 


FROM 6)834B Load 


37D3 


: B 


6RQMe>3B20 


End 


37DB 


: CRLL 


6R0M§)378E 


Fetch and set screei 


37D9 


: PRRS 


)B6 


Go on till ) 


37DB 


: CRLL 


GROM§)5740 


CFI 


37DE 


•: ROD 


e)834B, )60 


Rdd offset 


37E1 


: ST 


@) 8300, 6)8346 


Character on )8300 


37E4 


: DST 


6)834R, )0001 


Repetition 1 


37E8 


: CEQ 


6)8342, >BB 


Token )? 


37EB 


: BS 


6R0Me)37F9 


Yes, end 


37ED 


: CEQ 


6)8342, >B3 


Token ,? 


37F0 


: BR 


GROMe)3510 


No, error 


37F2 


: XML 


)1B 


Fetch byte 


37F4 


: PRRS 


)B6 


Go on till ) 


37F6 


: CRLL 


GROMe)5740 


CFI 


37F9 


: RTN 






37FR 


: DRTR 


) 0000, ) 0000, )C945 



Load register with background color 
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: BR 


6R0M@ > 426C 


Display 


4002 : 


BR 


GROM@>4160 


Delete 




BR 


6R0M§>4227 


Print 




: BR 


GR0M@ > 4344 


Input 


4008 ; 


BR 


GROM@>401E 


Open 


400R : 


; BR 


6R0M@>4174 


Close 


400C : 


; BR 


GR0M§>41D7 


Restore 


400E : 


: BR 


6R0M§>45E3 


Read 


< 


: BR 


GRQM@>4356 


Fetch data from 6R0M or UDP 


■ 




GR0M§>41CF 


Close all open files 


^im4 ■ 

MCJ 1 *1 


; BR 


GR0M@>46FC 


Save 


4016 : 


i BR 


GR0M§>4641 


Load 


4018 ; 


: m 


GR0M§>474C 


List 


401P ; 


: BR 


GR0M§>4BFC 


Output record 




. 


GR0M@ > 4826 


EOF 


Basic 


OPEN: 






401 P 

MU 1 & 


: CRLL 


GR0M6 > 4993 


Fetch number 




. B5 


GR0M@)57DE 


Er ror 




: CRLL 


GR0M@>49B1 


Search PRB 


407R 


* 


GR0M©>57DE 


Nothing found, error 


4028 


: CEQ 


©>8342, >B5 


Token : 


402B 


: BR 


GROM©>40F5 


Error 


407n 


: XML 


>1B 


Fetch byte 


402F 


: CRLL 


GR0M§>4BR1 


Build PRB with name 


4032 


: DDEC 


§>632C 


Text pointer in Basic line minus 1 


4034 


: XML 


> 1B 


Fetch byte 




. Q£Q 


@>a342 >B3 


Token ,? 




> RR 

• Dt\ 


GRnM@)40FD 


No, error value 




• VMI 

■ Al ll_ 


> IB 






: CEQ 


@>a342 >P2 


Di sp I ay 


4040 


: B5 


GROM6>40D6 




4047 


: CEQ 


e>8342, >92 


Inpu t 


4045 


: B5 


GROM@ > 40E0 




4047 


: SUB 


§>8342, >F3 


->F3 (Token variable) 


404n 


: CHE 


§>8342, >09 


Greater or equal 9 


404 D 


: BS 


GROM§>40F2 


Error 


404F 


: CASE 


§>8342 




4051 


: BR 


GROM@>40nB 


Va r i ab le 


4053 


: BR 


GROM@>406B 


Relative 


4055 


: BR 


GROM§>40D1 


Interna I 


4057 


: BR 


6R0M@ > 4070 


Sequen t ia I 


4059 


: BR 


GROM§>4095 


Output 


405B 


: BR 


GROM@>409fl 


Update 


4050 


: BR 


urMJl Its / 


Rppend 


405F 


: BR 


GRGM@ > 40B0 


F i xed 


Permanent : 




Inefficient, since not considered 


4081 


: CLOG 


6)8317 )04 


4064 


: BR 


GROM@>40F2 




4066 


: OR 


e>8317, >04 




4069 


: BR 


GROM§>4034 




Relative: 






406B 


: OR 


VDP@>0005(§>8304) , >01 Set relative flag bit 


Sequential : 




Control if something is already set 


4070 


: CLOG 


§>8317, >08 


4073 


: BR 


GROMe>40F2 


Error 


4075 


: OR 


§>8317, >08 


Set flag bit 


4078 


: XML 


>1B 


Fetch byte 


4070 


: CEQ 


e>8342, >B3 


Token ,? 


407D 


: BS 


GROM§>403B 


Go on 


407F 


: CZ 


©>8342 


End of line 


4081 


: BS 


GROM@>40FD 


End 


4083 


: CALL 


GROM§>408D 


Fetch number 


4086 


: D5T 


VDP@>000n(e>8304) ,e>834R Number on record number 


4086 


: BR 


GROM§>4036 





- 169 - 



4080 : 


pnR5 


*f tlOl . 


l_riL-l_ 




D3 




RTW 

lA 1 IN 


Hi 1 f ni 1 4- 




4095 : 


OR 


(JpCiB ts 




40gp : 








403F : 


OR 


4^Q7 • 




flppsnd 




40^4 : 


"or 


40n9 : 


BR 


Variable: 


40PB : 


OR 


Fixed: 




40B0 : 


XML 


40B2 : 


CEO 


40B5 : 


bb 


40B7 : 


CZ 


40B3 : 


B5 


40BB : 


CRLL 


40BE : 


CZ 


40C0 : 


BR 


40C2 : 


5T 


40C7 : 


CLOG 


40Cn : 


BR 


40CC : 


OR 


40CF : 


BR 


Internal : 


40D1 : 


OR 


Display : 


40D6 : 


CLOG 


4009 : 


BR 


40OB : 


OR 


40DE : 


BR 


Input: 




40E0 : 


OR 


40E5 : 


BR 


40E7 : 


CLR 


40E9 : 


ST 


40EE : 


onoo 


40F1 : 


RTN 


40F2 : 


CPLL 


40F5 : 


CRLL 


40F8 : 


DRTO 


40F9 : 


DRTR 


40Fn : 


B 


40FO : 


CLOG 


4102 : 


BS 


4104 : 


CLOG 


4109 : 


BR 


410B : 


BR 


4100 : 


CLOG 


4110 : 


BR 


4112 : 


OR 


4117 : 


CRLL 


411fl : 


BR 


4ilC : 


DCLR 


4120 : 


CZ 


4124 : 


BS 


4126 : 


ST 



>B3 

GR0Me>499C 
GROM@>40F2 



Compute number into integer 
0=Erpor 



yDP@>0005(e>a304) , >02 Set output flag bit 

e>8317,)01 Control if something is set already 

6ROM@>40F2 Error 

@>8317, >01 Set flag 

6ROMe>4034 Go on 

VDP@>0005(§>8304J , >0B Set flag bit 
GROMe>409fl Go on 

VDPe>0005(§>8304J, >10 Set flag bit 



>1B 

§>8342, >B3 
GROMe>40C7 
@>6342 
6ROM§>40C7 
GROM@>408D 
@>634R 
GROMe>40F2 



Fetch byte 
Token ,? 

End of line 



Fetch record length 
0? 

Error 

VDPe>000e(e>a304J ,e>834B Set record length 
§>8317,>10 Set already? 

GROM@>40F2 
@>6317, >10 

6ROM§>403B Go on 

VOPe>0005(e>8304),>08 Set flag bit 
Set already? 



e>a317, >02 
6ROM@>40F2 
e>8317, >02 
GROM§>4034 



Go on 



VDP§>0B05(§>6304) , >04 Set flag bit 
6ROMe>409fl Go on 

§>8302 Length 

§) 8303, VDPe>0003(§> 8304) Internal offset 
©>a340,§>8302 New pointer free space symbol table 



GROM§>40E7 

GR0Me>284E 

>20 

>2C 

GRQMe>2012 



Reset PRB 
Error 

Incorrect statement 
Return Basic 



VDPe>0005(e>a304), >01 is relative set? 
6ROM§>410D 

VDPe>0005(e>8304), >10 No, set variable 

GROM§>40F2 

GR0Me>4117 

§>a317,>10 Fixed or variable set? 

GR0Me>4117 

VDP§>0005(§>8304), >10 No, set variable 
6R0Me>4CCB OSRLINK 
6ROM§>57C0 Not found, error 

VDPe>000R(e>a304) Clear record number 
VDP§>000a(e>a304) Length of record 0? 
6ROMe>40F2 Error 

e>a303,VDP§>0008(§>8304) Right record length 



- 170 - 



412B 
412D 
4131 
4134 
41 36 
4138 
4138 
413D 
4140 
4143 
4145 
4149 
414B 
414F 
4154 
4157 
415fl 
415F 



CLR 

CLR 

D5T 

DCZ 

BR 

DST 

BR 

DST 

DCZ 

BS 

DST 

BR 

DST 

DST 

CRLL 

DSUB' 

DSUB 

CONT 



e>&302 

VOPe>0003(§>a304) Clear internal offset 
e>834fl,e>8302 Record length on FflC 
Exist PRB pointer ? 



New PRB pointer 



Next PRB 



e>833C 
GR0Me>413D 
@>833C,@>8304 
6R0Me>414F 
e>830R,@>833C 
VDP*>a30R 
GR0Me>414B 
§>830R,VDPif>830fl 
6RGM§>4140 Till end 

VDP*>830R,e>8304 Set PRB pointer into old PRB pointer 
VDPe >B00B(@> 8304 ),§) 8304 Buffer pointer 
6R0M§>2644 Fetch space for buffer 

e>8340, 6)8302 New pointer symbol table 
VDPe>000S(§>8304) .§>8302 Correct pointer to buffer 



Basic 


DELETE ; 






4160 : 


CLR 


e>8317 




4162 : 


CRLL 


GR0Me>4BR1 


Built PRB 


A 'tec 

41bb : 


LLK 


e>8302 




4167 : 


b 1 


e > 8303, yDPe>0003(§> 8304) Internal offset 


41 6C : 


nnnn 


§> 8340, @> 8302 


Old pointer again 


416F : 


CRLL 


GR0M§>4CB9 


DSR access 


4172 : 


DRTR 


>07 


Op code 


4173 : 


CONT 






Basic 


CLOSE : 




Fetch file number 


4174 : 


CRLL 


GR0M§>4993 


4177 : 


; BS 


GR0Me>57DE 


Er ror 


4179 ! 


; CALL 


GR0M§)49B1 


Search PAB 


417C ! 


: BR 


GR0Me)57DE 


Not found, error 


417E : 


; CALL 


GROMe>49D0 


Data block to be written, then 


4181 : 


; ST 


VDPe>0004(@>8304) , >01 Close op code 


4186 : 


; CEQ 


e>&342, >B5 


Token :? 


4189 ; 


; BR 


GRGMe>4199 


No , i ump 


418B : 


; XML 


>1B 


Token delete? 


418D ; 


: CEQ 


e>8342. )99 


4190 


: BR 


GROM@>40F5 


No, error 


4192 


: ST 


VDP§>0004(e>8304) , >07 Op code delete 


4197 


: XML 


>1B 


Fetch byte 


4199 


: CALL 


GR0M§>4CC6 


Call DSR 


419C 


: BR 


GR0M§>41R2 


If error, jump 
Clear PAB 


419E 


: CRLL 


GR0M§>49E6 


41fi1 


: CONT 






41 R2 


: DST 


§> 835C,yDPe> 0004 (e> 8304) Op code on )835C 


41R7 


: CRLL 


6R0Me>49E6 


Clear PRB 


41Rfl 


: DST 


§> 8304. §> 8340 


New pointer free space symbol 


41RD 


: DSUB 


§> 8304, > 0006 


-6 


41B1 


: DST 


VDP§>0004(§)8304) ,e>a35C Repair op code 


41B6 


: BR 


GR0Me>57D6 


I/O error 


41 B8 


: DST 


e > 8304, VDP*> 8304 Fetch pointer to next PRB 


41BC 


: DCZ 


k^DP*>8304 


More PRB? 


41BF 


: BR 


GR0Me>41B8 


No, fetch next 


41C1 


: CRLL 


GROMe>49D0 


If necessary write data block 


41C4 


: ST 


k;DPe > 0004 (e> 8304 ), >01 Op code close 


41C9 


: CRLL 


GR0M§>4CC6 


Call DSR 


41CC 


: CRLL 


GR0Me>49E6 


Eleminate PRB 


Close 


all open files : 




41CF 


: DST 


§)8304.e>833C 


Pointer on PRB's 


41D2 


: DCZ 


e>833C 


No PAB? 
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AWA : BR 6R0M§>4iBL 
41 D6 : RTN 



No , j ump 



Basic 

41D7 

41 D9 

41DC 

41DE 

41E1 

41E3 

41E5 

41Ea 

41Efl 

41ED 

41F1 

41F4 

41F7 

41Fa 

41F9 

41FB 

41FD 

41FF 

4202 

4205 

4207 

420Q 

420E 

4212 

4214 

4217 

4213 

421D 

421 F ; 

4223 : 

4226 ! 

Basic 

4227 ! 
422R ; 
422C : 
422F ; 
4232 : 
4234 ! 
4236 : 

4239 : 
423B : 

4240 : 
4242 : 
4247 : 

4249 : 
424E : 

4250 : 
4254 : 
4259 : 
425C : 
425F : 
4261 : 
4263 : 
4266 : 
4266 : 
426n : 



RESTORE: 
: DCLR §>834R 



: CEQ 
: BR 
: CRLL 
: DCZ 
: 85 
: CRLL 
: BR 
: CRLL 
: DCLR 
: CRLL 
: CRLL 
: DRTR 
: CONT 
: CZ 
: B5 
: CLR 
: CRLL 
: DCEQ 
: B5 
: DST 
: D5UB 
: DCH 
: BR 
: DCEQ 
: B5 
: D5UB 
: BR 
: DRDD 
: CALL 
! CONT 

PRINT: 
! CEQ 
; BR 
; CRLL 
; CRLL 
! DCZ 
: BS 
: CRLL 
BR 

CL05 
B5 

CLOG 

BS 

CEQ 

BR 

CLR 

ST 

CRLL 

CRLL 

CZ 

BS 

CEQ 

BR 

XML 

BR 



§>a342, >FD 

GR0Me>41F9 

6R0Me>4993 

§>634R 

6ROMe)4202 

6R0M§>49B1 

GR0M§>57DE 

GROM§>49D0 



Token #? 
No , i ump 

Fetch file number 
0? 

Search PRB 
Not found, error 
If necessary write 



VDP§>000R(@>a304) Restore 



data block 



GROM@>4B03 
GR0Me>4CB9 
>04 

e>a342 
6ROM§>4202 

e>a3ii 

6ROMe>4D06 
§> 8330, e> 8332 
GR0M§>4Da8 
e > 8336, §> 8332 
@ > 6336. > 0003 



If necessary 
Call D5R 
Op code 



write special record number 



Line 
Yes, 



end? 
jump 



Fetch line number 
Does line list exist? 
No, error- 
Begin line list on pointer to data line 
First line 

§>834R,VDPif>8336 Line number smaller than searched one? 



GR0M§>421F 
6)8336,6)8330 
6R0M§)57ta 
6)8336, )0004 
GROMe)420E 
6)6336, >0003 
GROM6)4D0a 



No , j ump 
Reached end of line list ? 
Yes, error 
Next line 
Go on 
+3 

Set data pointer 



6)8342, )FD 

GR0M6)426C 

GR0Me>4C9B 

GR0M6)4993 

6)834R 

GR0Me)425F 

6R0M6)49B1 

GR0Me)57DE 

VOP6)0005(6 

GRQM8>4249 

VDP6)0005(6 

GR0Me)57DE 

^DP6)0004(6 

GR0Me)4254 

^DP6)0003(6 

VDP6)0004(6 

GR0Me)4C2R 

GROM6)4B03 

6)8342 

6R0M6>4325 

6)8342, )B5 

GROMe)40F5 

)1B 

6R0Me)426F 



Basic DISPLRY: 
426C : CRLL 6R0M6)4C9B 
426F : CRLL GR0M6)4B6F 
4272 : CEQ 6)8342, >FC 



Token # for file ? 
No, go on with display 
Set cursor positions 
Fetch file number 
(screen)? 

Search PRB 
Not found, error 
)a304),)04 Input? 

)8304),)02 Still Append? 

No, error 
)8304),)02 Read op code? 

No , j ump 
)8304) Clear internal offset 
)a304),)03 Write op code 

Set pointer in PRB 

Write record number in PRB if necessary 
Line end? 

Token :? 
Error 

Fetch byte 
Go on 



Set cursor position 
Check table token 
Token TRB 
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4275 : 


B5 


6R0Me>42D3 




4277 : 


PRR5 


>B5 


Go on till : 


4273 : 


CALL 


GR0M§>433fl 


Check display 


427C : 


B5 


6R0Me)42R8 


Yes, jump 


427E : 


CEQ 


§>834C,>65 


String? 


4261 : 


B5 


GR0M§>4291 




4283 : 


5T 


e>8356, >08 


Length 


4266 : 


MOVE 


>0008 TO e>835C 


FROM §>834fl On RRG 


428B : 


5T 


e)8355, >5C 


Pointer to "String", i.e. number 


428E : 


CALL 


GR0M§>4B53 


Change into string, with string entry 


4291 : 


5T 


e)835C,e>8307 


Whole length 


4294 : 


SUB 


§>835C,e>8306 


Minus present length 


4297 : 


INC 


e>835C 


+1 for length byte 


4299 : 


CHE 


§>8351,e>835C 


Length 


429C : 


BS 


GR0M§>57DE 


Error 


429E : 


ST 


y DP* > 8308. §> 8351 Length 


42R2 : 


DINC 


§)8308 




42^4 : 


INC 


§>8306 




4206 : 


BR 


GR0Me>42RD 




42R6 : 


CEQ 


§>834C, >65 


Output display 


42RB : 


BR 


GR0M§>42B2 


No , j ump 


42RD : 


CRLL 


GR0Me>4C6E 


Write string 


42B0 : 


; BR 


GR0M§>42CE 




42B2 : 


; CLR 


e>8355 




42B4 : 


: CRLL 


GROMe>0014 


Change number into string 


42B7 : 


: CRLL 


GR0Me>4B53 


Write string in VDP 


42BP : 


; CRLL 


6R0M§>4C6E 


Rnd write string in file 


42BD : 


i CHE 


§) 8307, @> 8306 


Enough space? 


42C0 : 


: BR 


GR0M§>42CE 




42C2 ; 


; ST 


UDPJt>8308, >20 


One space? 


42C6 i 


; ROD 


VDP»>8308,§>8317 Offset 


42CR ; 


; DINC 






42CC 1 


; INC 






42CE ; 


: CALL 


GR0M§>4B6F 


Check more tokens 


42D1 ; 


: BR 


GROMe>40F5 




TRB: 








42D3 ; 


: CRLL 


GR0Me>433R 


Check display 


42D6 ; 


: BR 


GR0M§>57DE 


No, error 


42D6 ; 


: XML 


>1B 


Fetch byte 


42DR ; 


: CEQ 


e>8342, >B7 


Token (? 


42DD ; 


: BR 


GROM§>40F5 


Error 


42DF ; 


: PRRS 


>B6 


Go on till ) 


42E1 ; 


: CRLL 


6R0Me>4RF9 


Change into integer 


42E4 


: ST 


e>834C,§>8307 




42E7 


: CRLL 


GR0Me>4B62 


Compute tab at the beginning 


42ER 


: CH 


@>8306,e>834B 


Enough space? 


42ED 


: BR 


GR0M§>42F2 




42EF 


: CRLL 


GR0Me>4BFC 


Write data 


42F2 


: CEQ 


e>8306,e>834B 




42F5 


: BS 


GR0M§)42CE 


End, go on 


42F7 


: ST 


e>8303,@>a34B 




42FR 


: CRLL 


GR0M§>4C43 


Fill with space 


42FD 


: BR 


GR0M@>42CE 




42FF 


: ST 


@ > 8303, @> 8306 


Length 


4302 


: DEC 


e>8303 




4304 


: CLR 


§>8302 




4306 


: DIV 


@>8302,>0E 


/14 


4309 


: INC 


e>8302 


+ 1 


430B 


: MUL 


@>8302, >0E 


*14 = 28 = one line 


430E 


: CH 


e > 8307, §> 8303 


End of data block? 


4311 


: BR 


CR0Me>431R 




4313 


: INC 


§>8303 


+ 1 


4315 


: CRLL 


GR0Me>4C43 


Set pointer 


4318 


: BR 


6R0M§>431D 




431R 


: CRLL 


GR0M§>4BFC 


Write data block 
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Token" 




431D : 


XML 


431 F : 




4321 : 


BR 


4323 : 


BR 


End of 


I i ne 


4325 : 


COLL 


4328 : 


cz 


432R : 


BR 


432C : 


DEC 


432E : 


5T 


4333 : 


CONT 


4334 : 


5T 


4337 : 


INCT 


4339 : 


CONT 


4330 • 


CZ 


433C : 


BR 


433E : 


CLOG 


4343 : 


RTNC 


Bas ic 


INPUT 


4344 : 


COLL 


4347 : 


CEO 


434fl : 


BR 


434C : 


COLL 


434F : 


DCZ 


4351 : 


BS 


4353 : 


COLL 


4356 : 


BR 


4358 : 


CLOG 


435D : 


BR 


435F : 


COLL 


4362 : 


ST 


4367 : 


COLL 


4360 : 


CEQ 


436D : 


BR 


436F : 


XML 


4371 : 


CLR 


4373 : 


CLOG 


4378 : 


B5 


437R : 


CZ 


437E : 


BR 


4380 : 


COLL 


4383 : 


5T 


4388 : 


CLR 


4380 : 


D5T 


438F : 


DODD 


4332 : 


COLL 


4335 : 


XML 


4397 : 


DCLR 


4399 : 


CHE 


439E : 


B5 


4300 : 


ST 


4304 : 


DINC 


4306 : 


INC 


4308 : 


CH 


430B : 


BR 


430D : 


D5T 


43B0 : 


COLL 


43B3 : 


BR 


43B5 : 


CEQ 


43B8 : 


BR 


43B0 : 


MOVE 


43BF : 


DCZ 


43C1 : 


B5 


43C3 : 


5T 



>1B Fetch byte 

§>8342 End of line? 

GR0M@>426F New start with "scroll" 

6R0M§>4328 End 
( rcord) : 

GR0M§>4BFC End with writing data block 

e>a317 Screen flag 

GR0Me>4334 Yes, end 

e>8306 New internal offset 

VDPe > 0003 ( e > 8304 ) , § > 8306 



e>837F,§>8306 
@>a37F 



New line pointer 



§>8317 Flag file 

6R0M§>49CC Return condition bit set 

yDP§ > 0005 (@> 8304 ), >08 Internal 

Return condition bit set at display 



GR0Me)4C9B Prepare pointer 

e>8342, >FD Token #? 

6R0M§>44B3 No, jump 

GRQM§>4993 Fetch file number 

@>8340 0? 

6R0M§>44DC Yes, then jump screen 

GR0M§>49B1 Search POB 

GR0M§>57DE Not found, error 

VDP§>0005(§>8304), >02 Update or input? 
6R0Me>57DE No, error 

GROM§>49D0 Write data block if necessarv 

VDP@>0004(§>8304) , >02 Input 

6ROM©>4B03 Fetch and write data set number if necessary 

e>8342,>B5 Token :? 

GROM§>40F5 No, error 

>1B Fetch byte 

@>8317 No screen offset 

yDP§>0005(§>8304) , )08 Display? 

GROM§>4410 Yes, jump 

VDPe>0003(e>8304) Internal offset? 

GR0M§>4383 Yes, still there 

GROM§>4CC0 Call D5R 

§>832B,VDP§>0003(§)8304) Internal offset on screen output end 
e>8320 

e>8366,VDP@>0006(§>8304) Fetch buffer pointer 
§>8366,§>8320 Plus offset 

6R0Me>4CE0 Fetch variable name and build stack entry 

>17 VPU5HG 

§>830C 

e)832B,VOPe>0009(§>8304) Actual data set short 
GR0Me>43fl8 

§>830D,VDP*>83B6 Length on >830D 
@>8366 
@>a32B 
§>834C, >63 
GR0Me>43B5 
e>8350,e>830C 
GRQMe>432D 
GR0Me>43E3 

e>830D,>08 Length 
GR0M§)57DE No, error 



Numeric ? 
Yes, jump 
Length 

Fetch string from POB buffer 



e>830C TO §>8340 FROM VDP*>8366 
§>8340 0? 
GR0M§>43E1 
§>835C, >51 



Fetch value on FOC 
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43CB ; 


: CH 


*>835C, >63 


Is a value wrong? 






43Cfl ; 


: B5 


GR0M§>57DE 


Then error 






43CC ; 


; DEC 


§>835C 








43CE 1 


: CEQ 


e>835C,>4B 


Rll 6 bytes 






43D1 1 


; BR 


GR0M§>43C6 








43D3 ; 


: D5T 


e>835C,§>834R 


Check independently of sign (+ -) 






43D6 : 


: DPB5 


§>835C 








43D8 : 


! DEC 


§>835D 








43Dn ! 


; CH 


§>835D. >62 








43DD : 


! B5 


6R0Me>57DE 


Error 






43DF : 


; BR 


GR0M§>43E3 








43E1 : 


; DCLR 


§>834C 








43E3 ! 


: DRDD 


e>8366,§>830C 


New buffer pointer 






43E6 : 


; ROD 


@>832B,e>830D 


New value screen input end 






43E3 ! 


; XML 


>15 


Transfer value 






43EB ; 


; CLR 


VDPe>0003(§>8304) Internal offset 






43EF ; 


; CEQ 


§>8342, >B3 


Token ,? 






43F2 ! 


: BR 


GROMe>440F 


No , end 






43F4 ! 


; XML 


>1B 


Fetch byte 






43F6 ; 


; CZ 


e>8342 


Line end ? 






43Fa ; 


: BS 


GROM§>4403 








43FR ! 


; CHE 


§>832B,VDP§>0009(e>8304) Screen input pointer smaller 


length 


43FF ; 


; B5 


GROMe>4380 


No, call new DSR of 


data 


block. 


4401 ! 


: BR 


GR0Me>4392 


Otherwise without DSR 






4403 : 


! CHE 


e>832B,VDPe>B009(e>8304) Screen input pointer smaller 


length 


4408 : 


; B5 


GROM§>440F 


No , end of 


data 


block. 


440n : 


: 5T 


VDPe>0003(§>8304) ,§>832B Store internal offset in PRB 




440F 1 


; CQNT 










4410 : 


: CRLL 


GR0M§>48CC 


Input display 






4413 i 


; D5T 


@>8338, >0320 


Seize crunch pointer 






4417 ; 


; CLR 


§>8307 








4419 ; 


; ST 


^^DPe>0004(@>&304) , >02 Read op code 






441E i 


1 LZ 


VDPe>0003(§>8304) Internal offset? 






4422 : 


; BR 


6R0Me>4449 








4424 1 


; DINC 


§>8338 








4426 : 


; DDEC 


e>8338 








4428 ; 


; 5T 


VDP*>6338, >B3 


Token , 






442C ; 


; CRLL 


GROM§>4CC0 


Call DSR, fetch data set 






442F 1 


: CLR 


VDPe)0003(@>8304J Internal offset 






4433 ; 


: CRLL 


6R0M§>45C6 


Buffer pointer on start "Screen" 


input 




4436 1 


: 5T 


@>832R,UDP@>0009(@>8304) Length of received data 


set 




443B ; 


: CZ 


e>832R 


0? 






443D : 


: B5 


6R0Me>4449 








443F ; 


: ROD 


VDP*>a320. >60 


Rdd offset 






4443 ; 


: DINC 


e>8320 








4445 : 


: DEC 


@>832R 








4447 ; 


: BR 


GR0M§)443B 


Loop till end 






4449 ; 


: CRLL 


GR0M§>45C6 


Buffer pointer on start "Screen" 






444C ; 


: ST 


e>832B,VDP§>0009(§>8304) Length of data block 






4451 ; 


: CLR 


@)832fl 








4453 ; 


: DRDD 


@>832R,yDP§>0006(@)8304) Plus pointer to buffer 






4458 ; 


: DDEC 


@>832R 


Result: End of input buffer 






4450 ; 


: CRLL 


GROM§>2014 


Crunch string 






445D ; 


: BS 


GRGM§>57E3 


No jump, input error 






445F : 


: INC 


e)8311 






4461 : 


: RDD 


§>8307,§>8311 








4464 


: CHE 


§)8307,§>8310 








4467 ; 


: BR 


6RGM§>4426 








4469 ; 


: DDECT 


§>832C 


Pointer to text 






446B : 


: XML 


>1B 


Fetch byte 






446D ; 


: CALL 


GRGMe>45CB 


Set pointer 






4470 ; 


: CLR 


VDPe>0003(§>e304) Internal offset 






4474 ; 


: CEQ 


@>8342, >B3 


Token ,? 






4477 ; 


: BR 


GR0M§>44RE 


No , j ump 






4479 ; 


: CEQ 


@>8307,@>a310 








447C : 


: B5 


GR0M§>44fiE 
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447E 


5UB 


§>8307,§>a310 






4481 


SUB 


\S /OJ I 1 p V / OsJV / 


^can and 




4464 


CEQ 




II 9 




4488 


BR 


GROM@ > 4496 






448R 


DINC 


@>6320 


Forget 




448C 


CEQ 


VDP* > 8320 , > 82 


"? 




44S0 


BR 


6R0M§>4480 


Till pnH nf cfrinri 




4492 


• DINC 


@>8320 




4494 


: BR 


BR0Me>4484 






4496 


• DINC 


e>8320 






4498 


CEQ 


VDPe>FFFF(§>8320),>8C ,? 




443E 


BR 


GR0M@>4496 


No , i ump 




44n0 


: DEC 


e>8311 




4402 


: BR 


GR0M@>4484 


New start 




4404 


■ DSUB 


e> 8320, VOP§>0006(e> 8304) Pointer to start minus buffer address 


4409 


5T 


VDP§ >0003(§> 8304 ) .e> 8321 Odd internal 


offset 


44flE 


5T 


" / LJ*J 1 1 fV/OO \X3 






44B1 


BR 


wrxUI Itf /M3^U 






44B3 


COLL 


(iRDMA > 4r<=)FI 


Screen input, prepare 


pointer ten 


44B6 


05T 


a s A'^CIQ A \ Ati'Pr 


Text pointer 


44B9 


DOEC 


G > OjiOH 




44BB 


COLL 




Text pointer to start 


of string 


44BE 


BS 


urvui ns / ^MUD 


End 


44C0 


CEQ 




Token :? 




44C3 


BR 


GRQM@ > 44BB 


No, then till end 




44C5 


05T 




New text pointer 




44C8 


XML 


> IB 


Fetch byte 




44C0 


P0R5 


>B5 


Go on 




44CC 


CEQ 


a>A34r 


String tag? 




44CF 


BR 


urNUi nz / *TlOrO 


No, error 




44D1 


COLL 




Write string (Input dialoque) 


4404 


BR 




Jump 




4406 


D5T 


A ) A'^^r a \ A'^DIQ 


New text pointer 




4409 


5T 




Token : 




44DC 


COLL 


wr\wl It: / HOUi3 


Screen address 




44DF 


5J 


UDPm. s A'^CIA \ qp 


Write > ? 




44E3 


OINCT 


a ) A'^CIA 


+2 




44E5 


CEQ 


A > Pt'^A'P \ 
S / O , / DO 


Token :? 




44E8 


BR 


(iRHMd > 4C[P'=; 


No, error 




44E0 


XML 


) 1R 


Fetch byte 




44EC 


COLL 


f^PDMfi \ AfKCr 


Fetch variable 




44EF 


COLL 


oKUnS > 4bUd 


Scroll if necessary 




44F2 


D5T 


A\A'3'7I7I AvAQOIfl 
e > Oj£Xi , 6 > 03\00 


Start screen input 




44F5 


5T 




Space 




44F9 


DINC 


6 > O J0O 




44FB • 


DCHE 


e>o308, >02FE 


Clear Line 




44FF : 


BR 


uRDMB>44r5 






4501 : 


DST 


vure/io^rc, >/r/r 


Mark end of Line 




4506 : 


CZ 


e>a3CE 


Sound byte 




4509 : 


BR 


6ROM§>450E 




450B : 


COLL 


GROMe>0034 


Occept tone output 




450E : 


DEX 


@>836E,§>830E 


Ogain old value stack 


pointer 


4511 : 


COLL 


6R0M§>2a32 


Keyboard input 


4514 : 


DEX 


e>836E,@>830E 


Ogain new value stack 


pointer 


4517 • 


DST 


e>8338, >0320 


Crunch buffer pointer 


451 B 


COLL 


6ROMe>2014 


Crunch input line 




451E : 


BS 


6R0Me>455F 


Warning 




4520 : 


COLL 


GROMe>4D00 


Scroll 




4523 : 


ST 


e>a37F, >03 


Line 3 




4526 : 


INC 


§>8311 






4528 : 


CEQ 


e>8310. 6)8311 






452B : 


BR 


6R0M§>455F 


Warning 




4520 : 


DST 


§>831E,e>8334 


Data pointer 




4530 : 


DST 


e>8334, >0321 




4534 : 


DST 


6)8302, §>830E 






4537 : 


DODO 


6)8302, )0008 
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4b'3B : 


; DST 


@ > 8306, C'DP^) 8302 


453F : 


i COLL 


6R0M§>4950 


Fetch byte 


4542 : 


; CLOG 


VDP»>830B,>80 


Token? 


4546 : 


: BR 


6R0M§>4571 


Yes, jump 


4548 : 


! COLL 


6R0M§>493B 


Convert number if necessary 


454B : 


; BR 


6R0M§>455& 




454D : 


; CZ 


§>8354 




454F : 


BS 


6R0M§>4576 




4551 : 


; DST 


e>8334,§>831E 


Ogain old data pointer 


4554 : 


; CZ 


§>8317 


Screen flag 


4556 ! 


; BR 


GR0Me>4564 


No , j ump 


4556 : 


; CZ 


e>8317 




455fl : 


: BS 


6R0Me>57E3 




455C : 


; DST 


e>8334,e>831E 




455F : 


; COLL 


GR0M§>284C 


Warning 


4562 : 


; DOTO 


>21 


Input error 


4563 : 


; DOTO 


>28 




4564 : 


; MOVE 


>000B TO VDP§>02E2 FROM GROMe>2108 


456B : 


1 DST 


@>8308, >02ED 




456F : 


: BR 


6R0M§)44EF 


Once again 


4571 : 


; COLL 


6R0M§>49BC 


Fetch Length byte 


4574 : 


; BS 


6R0M§>4558 


Error 


4576 : 


; COLL 


6R0M§>4950 


Fetch byte on >8301 


4579 : 


; CEQ 


@>8301, >B3 


Token ,? 


457C : 


; BS 


GR0M§>4588 




457E ! 


: DEC 


e>8311 


More variables ? 


4580 ! 


: BR 


6R0Me>4556 


Error 


4582 : 


; CZ 


§>8301 




4584 : 


; BR 


6R0M§>4558 


Error 


4566 : 


: BR 


GR0Me>458C 




4588 ! 


; DEC 


§>8311 


Number of variables 


458fl ; 


: BR 


GR0Me>4537 




458C ! 


; DST 


e>8334, >0321 


New data pointer 


4590 : 


; DST 


e>832C,@>830O 


4593 : 


; DDEC 


§>832C 




4595 ; 


; DST 


@>836E,§>630E 


Old stack pointer 


4598 ; 


; XML 


>1B 


Fetch byte 


4590 ; 


; CZ 


e>8342 


End of line? 


459C ; 


: BS 


6R0M©>45C2 




459E ; 


; COLL 


GR0M§>4CE0 


Build. stack entry 


45R1 1 


; XML 


>17 


VPUSHG 


4503 1 


; COLL 


GR0M§>495fl 


Length byte on >8301 


4506 ; 


: CEQ 


§>834C,>65 


String tag 


4509 1 


! BS 


GROM§>45B0 


450B ; 


: COLL 


GR0Me>493B 


Convert in number if necessary 


45flE ; 


: BS 


GR0M§>45B9 


4580 : 


: COLL 


GR0M§>496C 


Fetch Length byte 


45B3 ; 


! DST 


@>830C,e>8350 


Length of string 


45B6 : 


: COLL 


GR0M§>492D 


String to new place 


45B9 : 


: XML 


>15 


Submit value to variable 


45BB : 


: COLL 


GR0Me>4950 




45BE ; 


: CZ 


e>8342 




45C0 ; 


: BR 


GR0M§>4598 




43L^ 


ncT 
Lis 1 


§>8334,§>631E 


Pointer data 


45C5 


: CONT 






45C6 ; 


: ST 


§>8321,VDP§>0003(e>8304) Internal offset 


45CB ; 


: CLR 


§>a320 






nonn 


e > 8320, VOPe>0006(@> 8304) Plus buffer pointer on 


4502 : 


: RTN 






45D3 : 


: DCH 


@>a306, >02FO 


Screen line is full 


45D7 ; 


: BR 


GROMe>45E0 


No , go on 


45D9 


! COLL 


GRQM§>4D00 


Scroll 


45DC ; 


: DST 


e>6306.)02E2 


New start 


45E0 ; 


: RTN 
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45E1 : XML >1B 



Fetch byte 



Basic 


RERD: 






45E3 ; 


: CPLL 


GR0M@>4CER 


BuiLd stack entry of variable name 


45E6 ; 


: XML 


>17 


VPU5HG 


45E8 


: CEQ 


§>a334,>FF 


Data pointer )FF? 


45EB 


: B5 


6R0M§>57Ee 


Yes, data error 


45ED 


: CRLL 


6R0M§>4952 


Fetch byte from VDP on >a301 


45F0 


: CEQ 


e>fl34C, >65 


String tag? 


45F3 


: BS 


6R0M@>4614 


45F5 


: CEQ 


e>830i, >ca 


String without "" ? 


45F8 


: BR 


GR0M§>57Ea 


No, error 


45FR 


: CALL 


GR0Me>4978 


Prepare pointer 


45FD 


: DINC 


6 > 8350 


45FF 


: CRLL 


GROMe>4D02 


Move string from program to string part 
■ 


4602 


: DST 


e>8356,e>831C 


4605 : 


: DRDD 


e>83ic,e>a350 


Length 


4606 : 


: DDEC 


§>a3ic 


460fl : 


: CRLL 


6R0M§>4D16 


Convert string in number 


4600 : 


: DCEQ 


e>a356,e>83ic 


4610 ; 


: BR 


6R0Me>57E8 


Error 


4612 ; 


: BR 


GR0Me>461C 




4614 ; 


: CRLL 


GR0M§>496C 


Fetch string length 


4617 ; 


: BS 


GR0M§>57E8 


Not found, error 


4619 ; 


: CALL 


GROM@>4D02 


Move string from program part to string area 
Submit value to variable 


461C ; 


; XML 


>15 


461E ; 


: CRLL 


GR0Me>4952 


Fetch byte on >a301 


4621 ; 


: CZ 


@>6301 


Line end ? 


4623 ; 


: BR 


6R0M@>4636 




4625 ; 


: DDECT 


§>8336 


New pointer to data line 


4627 i 


: 5T 


e>8334, >FF 


Pointer to data element 


462fl : 


: DCEQ 


@> 8336, 6)8330 


End of line list ? 


i62D ; 


! B5 


GR0M§>4634 




•62F ; 


: DDEC 


§>a336 


Prepare for subprogram 


♦631 1 


; CALL 


GROMe>4D08 


Set new data painter 


4634 ; 


! BR 


GR0M@>463B 


4636 : 


; CEQ 


6)8301 , )B3 


Is a comma in data line? 


4639 : 


: BR 


GR0M6)57E8 


No, error 


463B : 


; CEQ 


6)6342, )B3 


Is a comma in program line? 


463E ! 


; BS 


GR0Me)45E1 


Yes, the same once again 


4640 : 


! CONT 





Basic LORD: 

4641 : CRLL GR0Me>4a66 Build PRE, reset all Basic pointers 

4644 : DST e>630R, 6)8304 Save PRB address 

4647 : DRDD 6) 630fl,VDP6)000C( 6)6304) Plus name length 

464C : DRDD 6)830R,)000R Plus 10 for PRB length 

4650 : DST VDPe)000R(6)a304) ,6)8370 Top memory 

4655 : DSUB VDP6)000R(6)8304) ,6)a30R Minus seized one up to now, equal Length 

465R : DINC VDP6)000fl(6)8304) +1 

465E : DST VDP6)000B(6)a304) ,6)630fl PRB buffer 

4663 : ST VDP6)0004(6)8304), )05 Load op code 

4668 : CRLL GR0M6)4CC6 D5RLNK 

466B : BR GR0Me)46DR Error 

466D : DST 6 )a302,VDP6) 0002(6 )830R) Check sum 

4672 : DXQR 6)6302, <^DP6)0004 (6 >a30A) 

4677 : DCEQ VDP*>830fl,6)8302 

467B : BR 6R0M6)46Dfl Wrong, then error 

467D : DST 6)6332, V0P6) 0002 (6) 830R) End of line list (high address) 

4662 : DST 6)8330, VDP6)0004(6)630fl) Start of line list (low address) 

4667 : DST 6)8302, (^DP6)0006( 6 )830R) Old top memory 

468C : DADD 6)830R,)0006 Begin program 

4690 : DSUB 6)6332,6)8302 Line pointer minus old top memory 

4693 : DSUB 6)6330,6)8302 

4696 : DSUB 6)830R,6>8330 
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4699 : 


; OCLR 


§)6302 




469B : 


: 05UB 


e> 6302, 6)3330 


Calc. number 


469E : 


i DINC 


§>6302 




46n0 : 


: 05T 


e > 8304, e> 6370 


New top memory 


46P3 : 


; DROD 


§> 8332, §> 8370 


Line pointer plus new top memory 


46fl6 : 


DPOD 


@> 8330,6)6370 




46P9 : 


; ST 


VDP* ) 6304 , VOP* ) 630P 


46RE : 


; DOEC 


@)830R 


Load address 


46B0 : 


: OOEC 


6)8304 


Goal address 


46B2 : 


; OOEC 


6)8302 


Number 


46B4 : 


: BR 


6R0M6>46R9 


Loop till all shifted 


46B6 : 


i CRLL 


6R0M6)215R 


Reset Basic pointer 


46B9 : 


; OOEC 


6)630P 


Convert line list 


46BB : 


: D5T 


6)8302, VOP*)830R Fetch pointer to line 


46BF ; 


; DSUB 


«) 8302, 6) 6370 


Minus new top memory 


4BC2 i 


i B5 


GR0M6)4745 


0, then end 


46C4 : 


; 05T 


6)630P,6)6330 


Start line list 


46C7 ; 


! DCHE 


6)8332,6)630P 


Still under end of line list? 


46CP ; 


: BR 


6R0M6>4745 


No, end 


46CC : 


; DINCT 


6)830P 


+2 


46CE : 


: DSUB 


yDP*)630R,6)8302 Minus difference 


46B2 ! 


: PND 


VDP*)630P, )7F 


Bit reset if necessary 


4606 : 


; DINCT 


6)830R 


Next line 


4608 ; 


: BR 


GR0Me)46C7 


Go on till end 


46DP ; 


; CRLL 


6RQMe)264C 


Warning 


4600 : 


! ORTR 


)46 


Text 


46DE ; 


: DPTR 


)E4 




46DF ; 


: CRLL 


GR0Me)215R 


Reset Basic pointer 


46E2 ; 


: BR 


GR0M6)57C3 


I/O Error 



46E4 ! 


! ORTR 


)17, )P3, >R6, >fl5-, )H3, >PB, )80, )B0, >B2, >RF, )R7, )B2, >R1 , )RD, )60, )fl9 
>RE, )60,RO, )P5, )R0, )RF, >B2, )B9 Text: Check Program in Memory 


Basic 


5RVE: 






46FC ; 


: CRLL 


GR0M6)4688 


Build PRB 


46FF : 


: D5T 


6)830R,6)6330 


Start line table 


4702 : 


: DINCT 


6)830R 


+2 


4704 ; 


: PND 


VDP*)630R, >7F 


Reset bit 


4708 ; 


: DPOD 


6)630R, )00(d4 


Next line 


470C 


: DCH 


6)a30P,6)6332 


End reached? 


470F 


: BR 


6ROMe>4704 


No, loop 


4711 


: DST 


6)630R,6)6340 


Pointer free space symbol table 


4714 


: OOEC 


6)e30R 


-1 


4716 ; 


: DST 


VDP*)830fl,e)6370 Top memory 


471P 


: DOECT 


6)830R 




471C ; 


: DST 


VDP*)830R,6)6330 Start line list 


4720 


: ODECT 


6)830R 




4722 


: DST 


VDP^*)830R,6)8332 End line List 


4726 


: DOECT 


6)630P 




4726 


: DST 


VOP*)630R,6)6330 Build check sum 


472C 


: OXOR 


UOP«)630R,6)a332 


4730 


: OST 


VDPe)0006 (6)6304 ) ,6>830P Set to start 


4735 


: OOEC 


6)630P 




4737 


: DST 


VDPe)000R(e)a304) ,6)8370 Calc. number of bytes 


473C 


: DSUB 


l^0P6 ) 000R ( 6 ) 6304 ) , 6 ) 830R 


4741 


: CRLL 


GR0M6)4CB9 


D5R access 


4744 


: ORTR 


)06 


Save op code 


4735 


: ST 


6)6366, )20 


Set edit mode 


4749 


: B 


GROM6>2012 


Go on in Basic 



Basic 


LIST: 






474C ; 


: OCLR 


6)6314 




474E : 


: DCLR 


6)831E 




4750 ; 


: ST 


6)6306, )20 


Decimal 45 


4753 ; 


: CRLL 


GR0M6)2634 


Line number 


4756 ; 


: DCZ 


6)6314 


Line number 
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4758 


BR 


6R0M§>4768 




47^Q 


Li J 1 


§>8314.VDPe>FFFD(§>6332) Error vaLue:1st line from Line List 


4760 




§>831E 


Step 0, in this case end 


4762 


: BR 


GR0M§>476a 




• D5T 


e>831E,VDP*>6330 Error value: Last Line 


<^ '66 


• DCZ 


e>831E 


0? 




: BR 


6R0M8 > 477R 




476C 


: DDEC 


@>8320 


^ ^ C3 1 L Ul 1 cell 


476E 


: CEQ 


VUI ^ / LJ JC.ILI f / OKI 


Space? 


4772 


: B5 


6R0M@>47BC 


4774 


: CEQ 




u u o 
nypnen i 


4778 


: B5 




Yes, last line is error value 
End smaller than start 


477R 


: DCHE 




477D 


: B5 


GR0M§>4782 




A77F 


: DST 


§>631E,§>8314 


Otherwise end=start 


4782 


DST 


e>8344,§>8314 


Line number on )8344 


4785 


CRLL 


GR0M§>283E 


Find line number 


4768 


DST 


©>a314,e>832E 


Pointer to line number 


4788 


DST 


§>8344,§>831E 


End 


476E 


CRLL 


GR0Me>283E 


Find line number 


4791 


DCH 


VDP*>832E,§>831E Does this line exist? 


4735 


BR 


GR0M§>479B 




4797 


DflOD 


e>832E, >0004 


Pointer again on Last line 


479B 


OST 


§>831E,e)832E 


Pointer on last line 


479E 


DDEC 


§>832C 


Pointer in line minus 1 


47P0 


XML 


>1B 


Fetch byte 


47R2 


cz 


@>8342 


47R4 


B5 


GR0M§>47F3 


Go on 


47R6 


CRLL 


6R0Me>41CF 


Close all open files 


47P9 


DST 


§>636E. >0BF6 


Reset value stack 


470D 


DST 


e>6324,§>836E 




47B0 


XML 


>1B 


Fetch byte 


47B2 


OST 


@>6304, >0708 


PRB pointer 


47B6 


CLR 


e>8317 


47B8 


MOVE 


>000D TO VDP*>8304 FROM 6R0M§>481E Write PRB 


47BF 


OST 


§>8308, >0715 




47C3 


5T 


e)834C,§>8342 
e>634C 


Length byte 


47C6 


INC 


47C8 


ST 


VDP*f> 6308, e> 8342 Write name into PRB 


47CC 


XML 


>1B 


Fetch byte 


47CE 


DINC 


6)6308 


47D0 


DEC 


§>834C 


Length 0? 


47D2 


BR 


GR0Me>47C8 


Go on 


4704 


CRLL 


6ROMe>4CC0 


Open file 


4707 


CLR 


e>634R 


4709 


ST 


e > 8307, VOPe>000a(§> 8304) Record Lenqth 


470E 


5J 


@>634B,§>6307 




47E1 : 


DRDD 


§>834R,e>6306 




47E4 : 


DST 


VDPe> 0006(6)6304 },§>e308 Buffer address 


47E9 ' 


DCH 


6>834R,6)6330 


Enough space? 


47EC • 


BS 


6R0M6)57D6 


No, error 


47EE 


ST 


6)6306, )01 


Last length 1 


47F1 : 


BR 


GR0Me>47F9 


47F3 : 


5T 


e>837F, )1F 


Last row XPT 


47F6 


CRLL 


6R0M6)4C9B 


Screen pointer for output 


47F3 : 


CRLL 


GR0Me)282E 


List line 


47FC • 


SCRN 




Keyboard scanning 


47F0 : 


BR 


GROM6)4604 


47FF : 


CEQ 


6)6375, )02 


Clear key? 


4802 : 


BS 


GROM6)460O 


Yes, end 
Next line 


4604 : 


05UB 


6)8314, ) 0004 


4608 : 


DCH 


e)631E, 6)8314 


Till above the last? 


460B • 


BR 


6R0Me)47F9 


Yes, go on 


4800 ' 


CZ 


6)6317 


Screen flag 


480F : 


BR 


GRQMe)481B 


Return Basic by clearing 


4811 : 


CRLL 


GR0M6)4BFC 


Write data set 
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•«e i4 ; 


: CALL 


GR0M§>4CB9 


Call DSR 


4617 ! 


: DflTR 


>01 


Close op code 


4816 : 


; B 


6ROM§>201R 




461 B ; 


; B 


6ROM§>2012 




461E ; 


: DflTR 


>0000 




4620 : 


1 DRTR 


)0000 




4822 ; 


: DRTR 


>0012 




4824 ; 


: DRTR 


>0000 




4826 ; 


: DRTR 


>0000 






UH 1 H 






482P ; 


: DRTR 


>60 




Basic 


EOF: 






482B : 


! CEQ 


e>6342, >B7 


Token (? 


4e2E 1 


: BR 


6ROMe>40F5 


No, error 


4630 ; 


: PRR5 


>FF 


Go on till end 


4832 


: CALL 


6R0M§>499C 


Convert into integer 


4635 


: B5 


6R0M§>4D7C 


Bad value error 


4637 


: CZ 


e>634fl 


0? 


4639 


: BR 


6R0M§>4D7C 


Error 


463B 


: D5T 


§>635C,§>633C 


Pointer on first PflB 


483E 


: CZ 


§>835C 


0? 


4640 


: B5 


GR0Me>57DE 


Yes, error 


4842 


: CEQ 


VDPe>0002(e>635C) ,e)634B Right number ? 


4647 


: BS 


6R0M§>484F 


Yes, found 


4649 


: DST 


e>835C,VDP*>835C Pointer next PRB 


464D 


: BR 


GR0M§>463E 


Go on searching 


464F 


: DEX 


e>8304,e>a35c 


PflB pointer on >6304 for subprogram 


4852 


: 5T 


e>635E,>03 


Op code for status 


4655 


: EX 


VDP§>0004(e>8304) ,§>635E Op code in PflB 


465n 


: CRLL 


GROM§>4CC0 


Call DSR 


4650 


: DEX 


@>8304,e>635C 


Old PflB pointer again 


4860 


: 5T 


VDP§>0004(§>835C) ,e>635E Old op codes again 


4665 


: ST 


e)835E,VDP§>000C(§>835C) Fetch status 


466R 


: MOVE 


>000& TO e>634fl 


FROM 6ROM§>4860 1 on PRC 


4670 


: CLOG 


e>835E, >03 


End of file? 


4873 


: B5 


GR0Me>467D 


No end, then 


4675 


: CLOG 


e>635E, >02 


Physical end of file? 


4676 


: B5 


GR0Me>487C 


No , end 


487fl 


: DNEG 


e>834fl 


Yes, -1 


487C 


: CONT 










§>834fl 





467F 


: CONT 






4660 


: DRTR 


>4001 




4662 


: DflTR 


>0000 






: UH 1 H 


>0000 




4666 


: DRTR 


>0000 




4666 


: CLR 


@>&366 


Clear flag byte 


466B 


: CEQ 


§>634Z, >C7 


String in ""? 


468E 


: BS 


6R0M@>4695 


Yes, jump 


4830 


: CEQ 


e>6342, >C6 


String without ""? 


4693 


: BR 


GROM§>40F5 


No, then error 


4695 


: CRLL 


GR0M§>41CF 


Close all open files 


4698 


: DST 


§>63BE, >06F6 


New value stack pointer 


489C 


: DST 


@>8324,e>63BE 


New start value stack 


483F 


: CRLL 


6R0M§>215fl 


Reset all Basic pointer 


46P2 


: DST 


§> 6304. > 0700 


PflB pointer 


48R6 


: CLR 


VDP*>8304 


Clear RflM for PflB 


46R9 


: MOVE 


>0009 TO VDPe>0001(§)8304) FROM VDP*>6304 


48B1 


: XML 


>1B 


Fetch byte 


48B3 


: DSUB 


6)6304, > 0004 


+4 (that subprogram for Basic are OK 


46B7 


: ST 


VDPe>000D(e>8304} ,e>6342 Length byte 


46BC 


: DST 


@>630R.VDPe>000C(@>8304) Whole length 


48C1 


: MOVE 


e>830fl TO VDPe>000E{§>6304) FROM VDP*>632C Name in < 
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ABCa : ST e>a334,>FF Flag for DflTO 

46CB : RTN 



46CC ; 


: DST 


e>830R,§>832C 


Text pointer 


4aCF 


: CLR 


e>8310 


48D1 


: DST 


§>830E,§>a36E 


Save value stack pointer 


4804 


: CHE 


@)a342, >80 


Token? 


48D7 


: BS 


6ROMe)40F5 


Yes, error 


48D9 


: XML 


>13 


Fetch variable 


48DB 


: CLR 


6)8311 




4dDD 


: CEQ 


§>8342, >B7 


Token ( 


48E0 


: BR 


6R0M§>48E4 




46E2 ; 


: INC 


§>8311 


Counter for paranthesis 


46E4 ; 


r CZ 


§>8311 


No paranthesis 


48E6 : 


: B5 


6R0M§>48F7 


Then jump 
End of line? 


46E8 ; 


! CZ 


6)8342 


48Efl ; 


; BS 


6ROM@)40F5 


Error 


48EC ; 


: CEQ 


§)8342, >B6 


Token ) 


48EF ; 


; BR 


GR0Me>48F3 




48F1 ! 


: DEC 


6)8311 


Counter minus 1 


46F3 ! 


: XML 


>1B 


Fetch byte 


48F5 : 


: BR 


GR0M@)48PD 


Bo on till of paranthesis 


46F7 : 


: XML 


)17 


VPU5H5 


46F9 : 


; INC 


6)8310 


Counter for start 


48FB : 


CZ 


6)8342 


End of line? 


48FD : 


BS 


6ROMe>430E 


Yes, end 


4aFF : 


; CEQ 


6)8342, )B3 


Token ,? 


4302 : 


: BR 


6ROMe)40F5 


Error 


4304 : 


: XML 


)1B 


Fetch byte 


4906 : 


CZ 


6)8342 


End of line 


4S08 : 


BR 


6R0Me)48D4 


From start 


490R : 


CZ 


6)8317 


Flag for file i.e. screen offset 


490C : 


BR 


GROM6)40F5 


Error 


490E : 


RTN 







String stack entry: 



490F 
4913 
4916 
491C 
491F 
4925 
4928 
492C 



DST 
DST 
MOVE 
CRLL 
MOVE 
DST 
DST 
RTN 



492D : CALL 

4930 : CZ 

4932 : BS 

4934 : MOVE 

493R : RTN 



6)834C,)6500 Rs of now treat also number as string 
6)8350,e)830C Length 

>001fl TO VDPe)03C0 FROM 6)8352 Save RR6 
GR0Me)4D12 Fetch space for string 

)001R TO 6)8352 FROM VDPe)03C0 Repair RRG 
e)834E,e>831C Rddress string 
e)834R,)001C Printing 



GROM6)490F Build string entry 

6)8351 string? 

GR0M6)493R Yes, end 

e)830C TO VDP»>631C FROM VDP*)8366 Shift string to new space 



493B ; 


: CEQ 


6)8301 . )C8 


493E ; 


: BR 


GR0M6)4951 


4940 ; 


! CRLL 


6R0Me)495fl 


4943 ; 


: DST 


6)8356,6)8334 


4946 1 


: CLR 


6)8300 


4948 i 


: DRDD 


6)8334,6)8300 


494B ; 


; CRLL 


GR0Me)4D16 


494E ! 


! DCEQ 


6)8356,6)8334 


4951 ! 


; RTNC 





String in ""? 
No , end 

Fetch byte on )8301 
DRTR pointer 

New DRTR pointer 

Convert string into number 



ST 6)8340,6)8389 6R0M flag 

CZ 6)8340 

BR 6R0M6)4962 Jump, if in GROM 

ST 6)8301,VDPlf)8334 Byte nach DRTfl-Pointer aus VDP holen 

CLR 6)834D 
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4360 : BR GR0M§>43B9 

4362 : MOVE >0001 TO e>8301 From 6ROM§)0000(§>a334) 

4369 : DINC e)8334 Increase pointer 

436B : RTN 



436C : 


; DCLR 


6 > 8350 




436E : 


; CEQ 


@>B301 . >C7 


String in ""? 


4971 : 


: B5 


GR0M§>4978 




4Q7'^ ■ 

*t3/ J 




S)A'^(^1 vTA 

TZ / OJV iff \mKJ 


5trina without ""? 




: BR 


GR0M@>49A7 


No / j ump 


4378 ; 


; CALL 


GR0M@>4S56 


Fetch byte on >8301 




t— I— lA 




Length 


497D : 


; ST 


e>8351 ,@>8301 


Length is now word 


4380 : 


: D5T 


§> 8366,©) 8334 


Data pointer 


4383 : 


; DRDD 


e > 8334, e> 8350 


Rddress end of strings 


4386 ! 


! RTN 






4387 : 


! CEQ 


§)8301 , >B3 


Token ,? 




, 55 


6ROMd>4390 


Yes t 3 untp 


438C ; 


; CZ 


§>8301 


End of line? 


4RAF < 


: BR 


GRnMo>49rr 


No, jucnp to end with condition bit set 




nnpr 




Da f a rininfpr f*ptiirn AOrlin 




' RTN 








l-QU 




Toke #? 


4336 ; 




GROM@ > 40F5 


No , snd 




. XML 


> 1B 






■ PQR^ 


>B5 


fin nn t' i 1 1 * 


433C ; 


; CEQ 


@>834C, >65 


St ring? 


493F ; 


: B5 


GR0M§>4D81 


Yes, error 


4301 ; 


: CLR 


§>a354 


Convert floating point into integer 


4303 ; 


: XML 


>12 


43R5 


: CZ 


§>8354 


Error? 


43R7 


: BR 


GR0Me>4D7L 


Yes, jump 


43R3 


: CLOG 


e>834P. >80 


Bit set 


43PC 


: BR 


GR0Me>43CC 


Yes, end with condition bit set 


43RE 


: DCZ 


e>834R 


0, then condition bit set 


43B0 


: RTNC 







43B1 ! 


: ST 


e)8317,e>834B 


Number on >8317 




43B4 ; 


; CZ 


@>834n 


Smaller than 256? 




43B6 1 


1 BR 


GR0Me)4D7C 


No, error 




43B8 : 


: D5T 


§>8304,@>833C 


PRB pointer. 




43BB 1 


: DCZ 


@)8304 


No PRB? 




43BD ; 


: B5 


GRQM§>43CF 


Then return condition 


bit reset 


43BF ; 


; CEQ 


VOPe)0002(§>8304} ,e>8317 Number OK? 




43C4 ; 


: B5 


GR0M§>43CC 


Yes, then return with 


condition bit set 


43C6 ; 


! DST 


©> 8304, VDP*> 8304 Pointer to next PRB 




43CR ; 


: BR 


GR0Me>43BB 


From start 




43CC : 


: CEQ 


@ > 8300, @> 8300 


Set condition bit 




43CF 


: RTNC 









43D0 ; 


: LLR 


e>8317 


4302 ; 


: CEQ 


VOP@>0004(@>6304J , >03 Write op code? 


4307 ; 


: BR 


GR0M§>43E5 No, end 


4303 ; 


; CZ 


VOP@>0003(e>8304) Length of data block 0? 


4300 • 


; BS 


GR0Me>49ES Yes, end 


43DF : 


; CRLL 


GR0M©>4C2R Fetch PRB pointer 


43E2 : 


; CRLL 


GR0M§>4BFC OSR access 


43E5 : 


i RTN 





Clear PRB ( or entrv in symbol table ) : 

43E6 : OST e > 830R , VDPe > 0006 (©> 8304 ) PRB buffer pointer 
49EB : ODEC e>830R -1 
43E0 : CLR e>8308 

43EF : ST §> 8303, VDPe>000D(e> 8304) Length of name 
43F4 : RDO e>8303,>0D Whole PRB 
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43F7 


: DODD 


*Ul H 


• nrpn 






43FF 


• 1 




• nrpn 




: B5 




: D5T 






•tmoc 


: us 1 


4P13 




*f M 1 U 


- n<^ 


4Q1fi 


• nonn 








• LID 1 




• nR 

. Oiv 


4(^26 


: D5T 


4P2n 


: DCZ 


4R2C 


: BS 


4P2E 


: DOOD 


4R31 


• nm in 


4P34 


■ LID 1 


4037 






U3UD 






4040 


• □r7 




uD 


4Q44 ' 


D 1 


4R43 : 


■ nrtpr 


4Q4FI < 


• nnpr 


4P4D : 




4n4F : 


; BR 


4fl51 ; 


. DSUB 


4054 : 




4056 : 


: B5 


4058 : 




4Qc:r 

MHOD 


nc: 


MHOU 


nonn 

LfHLIU 


40R1 
*tHO 1 


nonn 

UHUU 


4066 : 


: D5T 


4060 : 


: BR 


406C : 


: DODD 


4071 : 




4073 : 


\ B5 


4075 • 


nrRP 


4078 : 


OD 


4070 : 


nonn 


4D7n • 

•tri/ LI 


n^T 

LID 1 




r7 

t_il 


4083 : 


RR 


4085 : 


nrRP 


4080 : 


OD 


408C : 


nonn 


4091 • 


TRP 




OD 


4097 : 


D 1 




□Kin 


4QQP • 


■ ncT 

UD 1 




nonn 

UHUU 




ncT 

UD 1 




n R 


MrlMD 


r7 

L.^ 


400D : 


RS 

OD 


4R0F : 


D 1 


40B2 : 


SiJB 


40B5 : 


DODD 


40B9 : 


DMUL 



Pointer to end >8308 
Pointer equal FOB pointer 



6)8308,6)8304 
§)833C,e>8304 
6R0M§)4fl26 

6)8302, §)633C Save FOB pointer 
VDP*) 8302, 6) 8304 Clear 2nd FOB ? 
6ROMe)4fl0E Yes, go on 

6)8302, ^^DP*> 8302 No, next 
GROMe)4fl02 

VDF* ) 8302, VDP*) 8304 Change pointer 
VDP*>8302 Pointer now 0? 

5ROM6)4O20 

VDF*) 6302, 6) 8308 Put as high as necessary 
VDP*) 8302, 6)8300 
6)8304, VDPif) 8302 
GR0M6)4037 

6)833C,VDP*)8304 New FOB pointer 
e)833C Now 0? 

GR0M6)4034 
6)833C,e)a308 
6>833C,e)830fl 
6)8304,6)a33C 
6)8302,6)8300 
6)8302,6)8340 
6)8306,6)8308 
6)8302 
6R0Me)4051 
VDF* > 8308 , VDP* ) 8300 
6)8300 
6)8306 
6)6302 
GROM6)4O40 
6)8308,6)8300 
6)8304 
GR0M6)4071 
VDPif>8304 
GR0M6)4fl6C 

VDP*) 8304, 6) 8308 Increase pointer by difference 
VDP6)0006(e) 8304) ,6)8308 Pointer on buffer too' 
e)8304,VDP*)8304 Do this for next FOB 
GR0M6)4058 Till all 

VDF6) 0006(6) 8304), 6) 8308 Increase pointer buffer for first FOB 
6)833E Pointer to symbol table 0? 

6R0M6)4RF5 Yes, end 

6)833E, 6)8306 Higher than cleared FOB? 
Yes, end 
Plus difference 



Increase pointer for area of cleared FOB 
Now 1st FOB 

Oddress of FOB to be cleared 
Minus old pointer on free space 
End of FOB to be cleared 
0? 



Shift ROM 



Loop till end 

Difference 

0? 

Pointer next FOB 0? 



list with pointer to vcLu^- 



GR0M6>40F5 
6)833E,6>a308 
6)6304,6>833E 
6)8389 In 6R0M? 

6R0M6)4O8C 

VDFe)0004( 6)8304), 6)8330 Start line 
GRGMe)4091 

VDF6) 0004 (6)8304), 6) 8308 Increase pointer to value 
yDP*)8304, )00 String? 
GR0M6)40DC No, then jump 

6)8340, )07 Check on data field 

6)8340, VDP*) 8304 
6)834C, 6)8304 FOB pointer 
Plus 6 
1 



6)834C, )0006 
6)8350, )0001 
6)834E 
6)'8340 
GR0M6)4flC3 
6)834F, )01 
6)834F,6)8343 



No data field? 
Then jump 

Option base 



6)834E,VDF*)a34C Dimensions 
6)834E, 6)8350 Multiply 
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4RBC 
4PBE 
4RC0 
4RC3 
4RC5 
4RC7 
4RCB 
4RCD 
4flCF 
4RD5 
4PD7 
4RD9 
4RDC 
4RE0 
4RE2 
4RE7 
4RE9 
4flEE 
4RF3 
4RF5 
4RFa 

4RF9 
4RFC 
4RFE 
4B02 



DEC 

DINCT 

B 

DCZ 

B5 

DST 

DCZ 

BS 

DST 

DOEC 

DINCT 

B 

DCZ 
BS 

DCBE 
BS 

DROD 

DST 

BR 

DRDD 
RTN 

CRLL 
BR 
DST 
RTN 



§>fi34R Dimensions minus 1 

e>a34C 

6R0M§>4RRB Till aLL 

§>8350 

6R0Me>4RDC 

e>834R,VDP*>a34C Fetch Link address 
e>634R 0? 
GR0M§>4flD5 Then jump 

yDPe>FFFD(e>834R),@>a34C Write new Link address 
e>a350 -1 
§>a34C +2 
6R0Me>4fiC3 Go on 

k^DPe>0002(§>d304) More entrys into symboL tabLe? 
6RCM§)4RF5 No, end 

«^DPe>0002(§>8304), 6)8306 Higher? 
GR0M§>4RF5 Yes, then end 

^DPe>0002(e>a304) ,§>830a increase Link pointer 
e>8304,^DPe>0002(e>a304) New pointer 



GROMe>4R80 
§> 8340, @> 8308 



GR0M©>493C 
GROMe>4B02 
§>834R, >000-1 



The same once again 
New pointer free space for symboL tabLe 



Convert fLoating point into integer 



If error 1 



4B03 ; 


I CEQ 


§>8342, >B3 


Token ,? 




4B06 ; 


: BR 


GR0Me>4B2E 


No , go on 




4B0a 


; XML 


>1B 


Fetch byte 




4B0R : 


; CEQ 


e>8342, >DE 


Token REC? 




4B0D : 


; BR 


GROM§>40F5 


No, error 




4B0F : 


: CLOG 


VDPe>0B05(e>6304), >01 Relative file? 




4B14 1 


I BS 


6R0M§>57DE 


No, error 




4B16 ; 


; XML 


>1B 


Fetch byte 




4Bia ; 


; CRLL 


GROMe>49D0 


Write data set PRB if 


necessary 


4B1B : 


; CLR 


VDP§>0003(§>8304) Internal offset 




4B1F i 


: PRRS 


>B5 


Go on till : 




4B21 ; 


; CRLL 


GR0«e>499C 


CFI 




4B24 i 


: CLOG 


e>834R, >80 


Negative 




4B27 : 


: BR 


GR0M§>4D7C 


Error 




4B29 ; 


: DST 


<^DP@>000R(e>a304),§>834R Write data 


block num 


4B2E ; 


: RTN 









4B2F ; 


; CZ 


6)8342 


End of line? 


4B31 ; 


; BS 


6R0Me>4SCC 


Return with condition bit set 


4B33 ; 


; CEQ 


6)8342, >C7 


String in ""? 


4B36 ; 


: BS 


GR0Me)4B3D 


4B38 : 


: CEQ 


6)8342, )C8 


String without ""? 


4B3B : 


: BR 


GR0M§)4B49 


4B3D : 


: XML 


)1B 


Fetch length byte 


4B3F : 


: 5T 


6)8348,6)8342 


4B42 ; 


: CLR 


6)834fl 


Length as word on PRC 


4B44 ; 


; DRDD 


6>832C,e)834R 


Plus text pointer 


4B47 : 


! BR 


6ROMe)4B50 


End 


4B49 ; 


: CEQ 


6)8342. )C9 


Token line number ? 


4B4C ; 


: BR 


GRCM6)4B50 


No, end 


4B4E : 


: DINCT 


6>832C 


Skip 


4B50 ; 


: XML 


)1B 


Fetch byte 


4B52 : 


: RTN 







4B53 : ST 6)8300,6)8356 Length 

4B56 : CLR 6)830C 

4B58 : CRLL GROMe)4S0F Tread as string 

4B5B : MOVE 6)830C TO VDP*)831C FROM *)8355 In VDP 

4B61 : RTN 
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ni ij 


« ) O J*IH , C > O J**L 




4BGS : 


: CZ 


@ ) 834B 


Rest 


ABB? : 


: BR 


GR0Me>4B6C 




4B69 ; 


; ST 


§>e34B,@>a34C 


Rest on )634C 


4RRr • 






r Ml— CI 


466E : 








HDOr 






tnd or L ine < 


ID/ 1 


Dry 




No , j ump 


*tD/ <D 


; U3 1 




Trick return routine address 




rwp 




Greater or equal token ,? 


MD/ D 


RR 




cno 


*iD/U 


. ri-i 


^>Ojhc. , too 


Greater token : 




QC 

: DD 


bKUrie > 4dHW 


end 




U3 1 


.M.%A'37Q \A'A^T\ 
*)Oj/J , >tj lU 


Trick return routine address 


HDO/ 


■ TDI 1 




Check internal 


^RAQ ' 


■ RR 






4Bfl(" ■ 




S > A'^^i? > R*^ 


1 uKcn f I 


*tDOi 


■ RR 








us 1 




_ 

Trick return routine address 


4B36 ; 


: CEQ 


§>8342,)B5 


Token :? 




RR 


ununB ? *JdHlo 




4B9B ; 


: D5T 


*>6373,>431R 


Trick return routine address 




: RTN 




Return 


Ri 1 i 1 H 


PRB (rough) : 




4RQ1 


: PRR5 


>B3 


retcn name 




: CEQ 


§>834C,>65 


3i ring r 


1DHO 


: BR 


6R0M§>4D81 


No, error 


4RQA 


: D5T 


e > 8302, @> 8350 


i-engin on >03ti£. 


^ROR < 


: HDD 


§>8303,>0E 


r~«^mM 1 DOD 1 nnM^I^ 

uompiete rHO lengtn 


*IOHC 


: XML 


>17 


vrUDnD 


^Rnci 


; DST 


§>a34R.e>8302 


L.engtn on phl 


4DDd ; 


. roi 1 

l-HLL 


GR0Me>2844 


retch space for PHB 


4 ODD 


: XML 


>18 


VrUr 


*IDDO 


; DSUB 


@> 8340, 6)8302 


Free space minus length 


4B6B : 


: DST 


§> 8304, @) 8340 


Save on >6304 (New pointer to PRB) 


4RRF ' 


: DINC 


§>8304 


+ 1 


4BC0 ; 


: CLR 


VDP*>8304 


Clear PRB 


4Bn • 


! MOVE 


>000D TO VDP§>0001(§>8304) FROM VDP*>8304 


4BCB : 


: ST 


k^DPe>0003(§>8304),e>8303 Internal offset 


^Rnn < 


! ST 


§>8302,§>a351 


Length 


Anvn 
'tdUJ 


: ST 


VDP§>000DCe>8304),@>8351 Length of name 


4dUo 


: ST 


yDP§ > 0002 ( § > 6304 ) , § ) 831 7 Numbe r 


^Rnn 

IDUU 


! DST 


e> 8306, 6)6304 






: Dnoo 


6)8306, )000E 


Pointer to name 




: CLR 


6)6317 






: CZ 


6)8302 


Length of name 0? 




: BS 


6R0Me>4BFB 


Return no error, since also used for 




: ST 


VDP*) 8306, 6) 631 7 Clear area for name 


ZiRPP 


: ADD 


VDP*)6308,VDP*>634E Write name 




: DINC 


e)834E 


+ 1 


4BF5 i 


: DINC 


6)8308 


+ 1 


4BF7 ; 


: DEC 


6)6302 


-1 




: BR 


GR0M6)4BE6 


Name written? 


^RPR 


! RTN 








: CZ 


6)8317 


Screen flag (offset)? 


4Drb 


: BS 


6ROM6>4C08 


No , j ump 




: CRLL 


GROM6)4D00 


Scroll 


4C03 ; 


! ST 


6)6306, )01 


Start 


4C06 ; 


: BR 


6R0M6)4CflF 


Go on 


4C08 ; 


: CLOG 


VDPe>0005(6)6304),)10 variables 


4C0D ; 


: BR 


GR0M6>4C17 


Yes, jump 
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4C0F : ST §>8303,@>a307 Length of data set 

4C12 : INC §>8303 +1 

4C14 : CRLL BR0M§>4C43 Fill with space if necessary 

4C17 : DEC §>830B 

4C19 : ST VDP§ > 0009 (@> 8304 ) ,e> 8306 Length record 

4C1E : CLR VDP§> 0003 (§> 8304) Internal offset 

4C22 : CRLL 6R0M§>4CB9 Write data block 

4C25 : DOTR >03 

4C26 : CLR §>8309 

4C2a : BR 6R0M§>4C36 New pointer and end 

4C2R : CLR §>8317 

4C2C : ST §>8307, VDPe>0008(§>8304) Record length 

4C31 : ST e>8309,yDP@>0003(e>8304) Internal offset 

4C36 : ST §>830B ,e>8309 New internal offset 

4C39 : INC §)8306 +1 

4C3B : CLR e>8308 

4C3D : DRDD e>8308,yDP§>0006(e>8304) Buffer address in >e308 

4C42 : RTN 



4C43 : CZ §>8303 

4C45 : BR GR0M§>4C4D 

4C47 : CZ §>830B 

4C49 : BR 6R0M@>4C52 

4C4B : BR GR0M§>4C6D 

4C4D : CH §> 8303 . e > 8306 

4C50 : BR GR0Me>4C6D 

4C52 : SUB e> 8303 ,6)8306 

4C55 : ADD e > 8306 ,§> 8303 

4C58 : ST §>8302 ,§>8317 

4C5B : CRLL 6R0Me>433fl 

4C5E : BR GR0Me>4C63 

4C60 : ROD @> 8302,) 20 

4C63 : ST VOP* > 8308 , e > 8302 

4C67 : DINC §>8308 

4C69 : DEC §)8303 

4C6B : BR GR0Me>4C63 

4C6D : RTN 



Internal offset 0? 
Yes, set new pointer 
No , end 



Minus offset 
+ 

Screen offset 
Check display? 
No , i ump 



Fill space 
Numbe r 



4C6E ; 


; ST 


e>830C,§>6351 


Length byte 


4C71 ; 


; CZ 


@>830C 


0? 


4C73 ; 


: BS 


GRCM§)4C9R 


Yes, end 


4C75 1 


; ST 


e> 8302.©) 8307 


Length of data block 


4C78 ; 


: SUB 


@ ) 8302, §) 8306 


Minus seized number 


4C7B 1 


: INC 


6)8302 


+ 1 


4C7D 1 


; CHE 


e)8302,@)830C 


String longer? 


4C80 ; 


: BS 


GR0M§>4C8C 


No , j ump 


4C82 : 


; CEQ 


@)8306, >01 


No data until now 


4C85 ; 


: BS 


GR0Me>4C8F 


Divide 


4C87 ; 


; CRLL 


GR0Me)4BFC 


Print data block 


4C8R 1 


: BR 


6R0Me)4C75 


The same once again 


4C6C 1 


; ST 


@>8302,e>a30C 


Length of string 


4C8F 1 


1 SUB 


e)830C,@>8302 


4C92 1 


: RDD 


@ ) 8306, @) 8302 


New pointer in data set (internal offset) 


4C95 : 


: CRLL 


GR0Me>4BE6 


Write data 


4C98 1 


: BR 


6R0M§)4C71 


From start, if not whole sentence 


4C9fl i 


; RTN 







4C9B 1 


; CLR 


e)8304 




4C9D ; 


! ST 


e>8317, >60 


Screen offset 


4CR0 ; 


; ST 


@)8306, >01 


Start data set 


4CR3 ; 


; CZ 


e>837F 


Line 


4CR5 i 


: BS 


GR0M§)4CflC 




4CR7 ; 


; ST 


e>830B,@>837F 


Line pointer 


4CRfl ; 


; DECT 


§)8306 


-1 


4CRC ! 


; ST 


e>830/, >1C 


Length)1C 
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4CflF 
4CB2 
4CB4 
4CBS 

4CB9 
4CBB 
4CC0 
4CC3 
4CC5 

4CC6 
4CCB 
4CD1 
4CD4 
4CD8 
4CDB 
4CDC 
4CE2 
4CE4 
4CE9 

4CEfi 
4CED 
4CEF 
4CF1 
4CF3 

4CF4 
4CF6 
4CFfl 
4CFR 
4CFC 
4CFE 



ST 
CLR 

onoD 

RTN 

FETC 
ST 

CRLL 
BR 
RTN 

ST 

MOVE 
D5T 
DPDD 
CRLL 
DRTR 
MOVE 
BS 

CLOG 
RTNC 

CHE 
BS 
XML 
XML 
RTN 

DRTR 
DRTR 
DRTR >0000 
DRTR >0000 
DRTR 
DRTR 



@> 6309, 6)3306 
@>8306 
§>8308, >02E1 



Pointer to screen address 



BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 
BR 



@>8356 Fetch op code 

VDPe > 0004 (e> 8304 ),§> 8356 Write op code 
6R0Me>4CC6 Call DSR 

GR0M§>57C3 I/O error 



VDP@>000C(e>8304) , >60 Screen offset 
)001E TO VDPe>03C0 FROM @>834R Save PRC 
§>6356,§>8304 Pointer for DSR 
e>8356,)000D Point to name 
GROM§>0010 DSRLNK 
>06 

>001E TO §>a34R FROM VDPe>03C0 Repair PRC 
6R0M§>4CE9 Error 
VDP§>0005(§>a304) , >E0 Check error 

Return, condition bit set it- no error 

§>6342, >80 
6ROMe>40F5 
)13 
>14 



>0000 
>( 



>0000 
>0000 

6R0M§>56CD 
6ROM@>5120 
GROMe>4DB0 
6R0M§>56BB 
GR0M§>5613 
6R0Me>5645 
GR0M@>4DBF 
GR0M§>4E38 
6R0Me>4D8R 
6R0M§>515C 
6R0M§>55BB 
GRaM§>56E1 
GR0Me>51fl9 



Scroll one line 

Move string from program part into string part 

2nd entry point for Basic execution 

Fetch line number 

Set subprogram data pointer 

Convert integer into RSCII 

CONT 

Break program 
RUN 

Fetch memory space for string 

Clear actual string 

CSN 

barbage collection 



Subprogram list: 
4D1R : DRTR >4D24 
DRTR >3536 
DRTR >05 
TEXT ': SOUND: 



Next entry g 
Routine address 
Length of name 
name 



DRTR 
DRTR 



>4D2E 
)351C 
DRTR >05 
TEXT 'tCLERRi 



DRTR 
DRTR 
DRTR 
TEXT 



>4D38 
>5713 
>05 

' : COLOR: 



DRTR >4D42 
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4D3R 


DflTR 


>56EF 




4D3C 


DflTO 


>05 




4D3D 


TEXT 








riQTQ 


/ *4UMl_ 




4D44 


DflTR 


>360E 




4D46 


DflTR 


>05 






TpyT 

1 1 








UH 1 M 






4D4E 


DflTR 


>362fl 




4D50 


DflTfl 


>05 






Tpyx 

1 C/\ 1 


• vi_nMr\ • 






UH 1 H 






4D58 


DflTR 


>3643 




4D5n 


DflTfl 


>04 






TFVT 


. i_riMr\ • 






UH 1 H 


/ •two/ 




4D61 


DflTfl 


>3708 




4DB3 


DflTfl 


>03 






TFVT 

1 WA 1 








UH 1 H 


/*tU/ 1 




4069 


DflTfl 


>3748 




4D6B 


DflTfl 


>05 




4nRr 

HUOL- 


TPVT 

1 CA 1 


■ iJw T 3 1 ■ 




*tU/ 1 


UH 1 H 






4D73 


DflTfl 


)37BF 




4D75 


DflTfl 


>06 






TFVT 

1 CA 1 


' •^rRFFN- ' 




4n7r 

•tU/ w 






Error 


4D7F 


DflTfl 


>20 


RaH uA 1 1 m 
uau V a L uc 


4080 


DflTfl 


>64 




MLiu 1 


roi 1 


ur\Lii 1" / 


1*'^°'* u • + u 


*tUO*f 


riQTQ 

UH 1 H 




DtrinQ number mismatcn 


4D&5 


DflTfl 


>7D 


4066 


BR 


6R0M§>56D4 




4088 


BR 


5R0M§>5B6C 




Execution Basic: 




4Dan 


DDEC 


e>8320 




408C 


CflLL 


GR0Me>282C 




408F 


BS 


6R0M§>4Dfl3 


No tine nuiTtber , jump 


4031 


CALL 


GR0M§>283C 




4094 


OCHE 


e>8320,e>832fl 


End of line? 


4097 


BR 


GR0M§>5671 


No / e r ro r 


4099 


CALL 


6R0M§>2a3E 


Search Line number in li 


409C 


BR 


6R0Me>56a2 


Nf^ T Tnimri oppn,^ 
I^U ^ 1 UUI 1U, csl v\j\ 


409E 


• DST 


§>8334,§>632E 


Pointer to Line on data 


4DR1 


■ BR 


6R0M§>4Dflfl 




40B3 


DST 


§> 6334, §> 8332 


End of Line List 


40n6 


- D5UB 


§>6334, >0003 




4onn 


DST 


§> 6344, VDP*> 8334 Fetch pointer to first 


40nE 


BR 


GR0M§>56CD 


Return with scroti of a 


Execution of 


Basic after prescan: 


4OB0 


DCZ 


6)8344 


Run flag? 


40B2 


BS 


GR0Me>40CD 


No, direct mode 


40B4 


DST 


§>632E,§>e334 


Data pointer on line poi 


40B7 


• DINCT 


e>632E 


Plus 2 


4DB9 


■ OST 


e> 8336, 6)6332 


End Line list on line po 


4DBC 


• CflLL 


6R0«6)5613 


Set data pointer 
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Continue : 


4 DBF 


: RND 


4DC3 


: 5T 


4LlLb 


nr"i_i 
: ULH 




DD 




RP 


Aurn 


. ncT 




. nQT 


znnc; 


: Ub 1 


^innQ 


. nr7 




: 03 


yinnn 
^UUU 


: dHLK 


HliUr 


: b 1 




Mm 11. 
: nUVt 


yincn 


CVC/" 

: CACL 




met. 
: LHbt 


^utu 


. DD 


/inc.'i-' 


no 
: Dr< 


**Ur 1 


DD 

: tin 


*turj 


DD 

: tin 


Artec 


: BR 


4Ur/ 


: BR 




• RR 

• DfS 




. DD 




DD 

: OK 


*4urr 


□D 

: ore 


T race 




MQc) 1 


. no 


Aca"^ 


b 1 




nonn 
: UHUD 


Acntn 


: ULn 


APOit: 


. no 


AC'yni 


: LhLL 


*fC u 


: U3 1 


*>t 1 / 


CT 

: bl 


4E1B 


: DINC 


4E1D 


: CRLL 


4titW 


: 5T 




UZ3UO 




• CT 




. nn p 




DTKID 

: r< 1 No 


oresK 






: 


4bJl 


: dH 


4tJd 


: RND 


4td/ 


: 5LHN 


4E38 


: D5T 


AC3r 




It Jr 


DD 


APA "1 


. rot 1 
: LHLL 




cm 1 
: LHLL 




Mm IP 
■ nUvt 


4t4c 


• D5T 


4bb^ 


• CRLL 


4tbb 


• CALL 


4c.ba 


: B 


end : 






nf~"7 
ULZ 


4cbU 


BS 


4tbr 


CRLL 


4to^ 


FMT 




V 

... / 


4E65 


. . . > 


4E67 




4E72 


. . E 



@>8368. >7F 

@>837F. >03 

@>832E.e>6330 

6R0M§>4E5B 

6R0M§>4DD1 

@>832C, >0320 

§)8326, >4DEB 

@>832a, >4E84 

@>8344 

6R0M@>4DEfl 

>03 

^;DP@>030F. > 10 
>0010 TU VDPe 

§>8323 

GR0M§>4E5B 

6R0Me>4E2E 

GROM§>4E01 

GR0M@>565C 

GR0M§>5B89 

GR0Me>563B 

GR0Me>54CF 

6R0M@>5156 

GR0M@>51F2 

6RDMe)51R3 

@>8320 

e>a32i .e>837F 

§>8320, )02DF 
@>8320, >02F8 
GR0M§)4E17 
GR0M@>56CD 
@>8320, >02E2 
yDP*>8320, >3C 
@>a320 
GR0M§>5645 
VDP*>8320, >3E 
@>8320, >02DE 
@>837F,@>8321 
@>8322 



Clear bit 
3rd column 

Pointer to actual line lower than start of list? 
Yes ■ end 

Text pointer at direct mode 
Return address for GPL and assembler 
Rddress of jump table Basic 
Run flag? 

Jump at direkt mode 
Background color 
New color table 
>0310 FROM VDPe)0jJ0P 
bxecute Basic 

Return, according to value execution ot following 
Lode 0, end of program routines 

1 for Break 

2 for Trace 

3 for error codes 

4 Check memory full 

5 Involution routine 

6 User defined function 

7 Fetch space for string 

8 Hdd strings 

9 Garbage collection 



Pointer screen output 



Scrol I 



Write line number 
II ^ II 



Nothing else 



since not permitted 



§>8389 GRUM flag? 

GR0M@>4DEfl Yes, then go on in Basic 

VDP*>a32E. >7F Remove break point 

Keyboard scanning 
VDP@>03EC,§>632E Save pointer for continue 
@>83a9 GROM flag? 

GR0M§>4DC6 Yes, then continue 

6R0M§>56CD Scroll 
GROMe>0036 Bad tone 

>0010 TO VDP§>02E2 FROM GROM§>20E9 Text "Breakpoint in' 
@>a320,>02F2 Pointer for output of the line number 
GR0M§>5B45 Write line number 

GROMe>201C Load VDP 

GROM§>2012 Basic return 



§>6344 

GR0M§>4E55 

GR0M§>56CD 



Run flag? 

No, return to Basic 
Scroll 



' >aR, >8fl. )e0, >R4, >RF, >flE, >R5, >80, >8R, >8fl' Text "DONE" 
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4E73 : D5T §>836E,§> 832-4 

4E76 : DCLR §>a344 

4E78 : CALL GROM§>4012 

4E7B : CPLL 6R0M§>5BCD 

4E7E : CZ §)8389 

4E81 : B5 GR0Me>4E55 

4E83 : RTN 



Clear value stack 

Clear program execution 

Close PRBs 

Scroll 

CROM? 

No , i ump 



4E84 : 


; BR 


GRClMe)4FB6 


FOR 


4E86 ! 


; BR 


6R0Me>54B3 


BRERK 


4E88 ! 


: BR 


6R0Me>5479 


UNBRERK 


4E8n : 


: BR 


6R0Me)S4S3 


TRRCE 


4E8C ! 


; BR 


GR0Me>545E 


UNTRRCE 


4E8E ; 


I BR 


GROMe>400E 


RERD 


4ES0 : 


: BR 


GROM§>4004 


PRINT 


4E32 ; 


: BR 


GROMe>50DB 


CPLL 


4E94 ! 


; BR 


GR0Me>5111 


String in 


4ES6 : 


: BR 


GROMe>400C 


RESTORE 


4E38 i 


: BR 


GROKe>50C8 


RRNDOMIZE 


4E3R ; 


; BR 


GROMe>4006 


INPUT 


4E3C 1 


; BR 


GROMe>4008 


OPEN 


4E3E ; 


; BR 


GROMe>400P 


CLOSE 


4Efl0 : 


1 BR 


GR0M§>4F33 


( 


4ER2 ! 


: BR 


GR0M§>4FB2 


+ 


4EP4 : 


; BR 


6R0M§>4FR8 


_ 


4EP6 : 


; BR 


GR0M§)4ED1 


PBS 


4EP8 : 


: BR 


GR0M§>4EDC 


RTN 


4EPP : 


: BR 


GR0Me>4EE2 


COS 


4ERC i 


; BR 


GR0Me>4EE8 


EXP 


4ERE ; 


; BR 


GR0M§)4EEE 


INT 


4EB0 : 


; BR 


GR0M§)4EFfl 


LOG 


4EB2 ! 


! BR 


6R0M§>4F26 


SGN 


4EB4 ; 


; BR 


GROM§>4F40 


SIN 


4EB6 : 


: BR 


GR0Me>4F46 


SQR 


4EB8 ; 


; BR 


GR0M§>4F4C 


THN 


4EBR ; 


: BR 


GR0M§>52BE 


LEN 


4EBC ; 


: BR 


GR0M§>52EP 


CHR$ 


4EBE ; 


: BR 


GROM§>4F00 


RND 


4EC0 1 


: BR 


GROM§>4000 


DISPLRY 


4EC2 ; 


: BR 


GRQM@>4002 


DELETE 


4EC4 ; 


: BR 


GR0M§>524R 


SEG$ 


4EC6 ; 


: BR 


GR0M§>531R 


STR$ 


4EC8 ; 


: BR 


GR0M§)5343 


URL 


4ECP ; 


: BR 


GR0Me>53R3 


P05 


4ECC : 


: BR 


GRQM@>530S 


RSC 


4ECE : 


: B 


GROMe>401C 


EOF 



Basic PBS: 

4ED1 : CRLL GR0M§>57R6 Check token ( 

4ED4 : PPR5 )CB Go on till PBS 

4ED6 : CPLL GR0Me>4F79 Check string tag 

4ED9 : DRB5 @>a34R Set absolute value 
4EDB : CONT 



Basic RTN: 

4EDC : D5T e>a35C.>0032 Routine address RTN 

4EE0 : BR GROM§>4F50 

Basic COS: 

4EE2 : DST e)835C,)002C Routine address COS 

4EE6 : BR GROM§>4F50 



Basic EXP: 

4EE8 : DST §>835C,>0028 Routine address EXP 
4EEC : BR 6ROM§>4F50 
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Basic 


INT: 


4EEE 


: CRLL 


4EF1 


: PRRS 


4EF3 


: CRLL 


Serb 


not k 
: LULL 


4EF9 


: CONT 


Basic 


LOG: 




: Ub 1 


4EFE 


: BR 


Basic 


RND: 


4F00 


: ST 


4F03 


: ST 


4FB6 


: RRND 


4F08 


: CZ 


4F0n 


: BR 


4F0C 


: DEC 


4F0E 


: CZ 


4F10 ; 


: B5 


4F12 : 


: BR 


4F14 


: RRND 


4F16 


: ST 


4F1R : 


: CEQ 


4F1D : 


: B5 


4F1F : 


: INC 


4F21 : 


: BR 






4F25 


: CONT 


Basic 


5GN 


4F26 ; 


: CRLL 


4F29 1 


: PARS 


4F2B 1 


: CRLL 


4F2E ; 


; DCZ 


4F30 : 


; B5 


4F32 : 


: CLOB 


4F35 : 


; MOVE 


4F3B ! 


; BS 


Ml *jU 




4F3F : 


; CONT 


Basic 


SIN: 






4F44 : 


; BR 


Basic 


SQR: 


AC AC 


D5T 


4F4fi : 


BR 


Basic 


TRN: 


4F4C : 


DST 


4F50 : 


CRLL 


4F53 : 


CRLL 


4F5B : 


I NCT 


4F58 : 


DST 


4F5D : 


I NCT 


4F5F : 


DST 


4F63 : 


PRRS 


4F65 : 


CRLL 


4FB8 : 


CLR 


4F6P : 


RTN 


4FBB : 


CZ 


4F6D : 


BS 


4F6F : 


CH 


4F72 : 


BR 



GR0M@)S7R6 Check token ( 

>CF Fetch quotation 

GR0Me>4F79 String tag? 

BROM@>0022 Call INT routine 



@>83bC,>002R Routine address LOG 
GROMe>4F50 



§>834fl,>3F Exponent 

§>8310,>4B Loop counter 

>B3 till 100 

e>8378 0? 

GR0M§>4F1B No, go on 

e>834R -1 

§>634R 0? 

GR0M§>4F23 End with 

BROM§>4F06 Bo on 

>63 till 100 
*t>8310,§>8378 flu digits 

§>8310,>51 Till >8351 
GR0M§>4F25 

@>a310 Increase Loop counter 
6R0M§>4F14 

§>834B Set 



6R0M§>57RB Check token ( 

>D1 Fetch quotation 

6R0M§>4F79 String tag? 

e>834fl 0? 

GR0Me)4F3F End 

e>834fl, >60 Sign (+ -)? 

>0008 TO @>a34fl FROM 6ROMe>50C0 Fetch the 1 on FflC 

GR0Me>4F3F Positive end 

e>834R -1 



§>835C,>002E Routine address SIN 
BROM§>4F50 



e>a35C,>002B Routine address SQR 
GROM§>4F50 



e>835C,>0030 Routine address TRN 

6R0M§>4F7F Check memory 

GR0M§>57RB Check token ( 

§>6373 Return on substack 
*>8373, >4F6B 

@>8373 Routine address on substack 
*>8373,e>a35C 

>FF Fetch quotation 

6R0M§>4F79 String tag? 
§>a354 

Execute routine 

§)83S4 Error? 

BR0M§>4Ffl7 No, CONT 
e>83S4, >01 

GR0Me>56B5 Number too big 

- 192 - 



4F74 : 


CALL 


GR0M@>284E 




MP / / ; 


nOTQ 

UH I M 


/ eLXi 


f^Arl annirmon^ 


4F78 : 


DRTR 


>94 




Check 


for string tag: 




4F79 : 


CEQ 


§>834C, >65 


string tag? 


zP7r . 
Mr /i_ : 


B5 


GR0M§>4D81 


Vac opnno 


4F7E : 


RTN 






Memory 


check 






4F7F : 


CHE 


'§>8373, )B2 


Substack not too high? 


4F82 : 


B5 


GR0Me>567D 


Yes, error memory full 


4F84 : 


D5T 


e>835E.@>836E 


k/alue stack pointer on >ti35E 


4F87 : 


DRDD 


@>83bc , >00Z8 


* >28 


4F8B : 


DCHE 


e)a35E,e>83iR 


Enough space? 


4F6E : 


BR 


GR0M@>4F9a 


Yes, end 


4F30 : 


CALL 


6R0M§>51fl9 


Garbage collection 


4F93 : 


DCHE 


§>a35E,e>831R 


Enough space now? 


MrSO : 


B5 


GR0M§>5B7D 


KJn o ^ p n p 

MO/ tfrfui 


4F98 : 


RTN 






Basic 


( : 






4F99 : 


CEQ 


@>8342 . >Bq 


Token )? 


4F9C : 


B5 


GR0M§>5671 


Error 


4F9E : 


PARS 


)B7 


Go on till ( 


4FR0 : 


CEO 


§>8342, >B6 


Token ) 


4Ffi3 : 


BR 


GR0Me>5671 


No, error 


MrH3 : 


XML 


)1B 




4F07 : 


CGNT 






Basic 








4FR8 : 


PARS 


>C2 


Go on till - 


4FRn : 


DNEG 


e>834R 


Change number into negative i 


4FRC : 


CH 


@>834C, >63 


Numeric? 


MrHr : 


BS 


GR0M§>5671 


Kin c\ f* w* r\ f 

■NO t tf r 1 u f 


4FB1 : 


CONT 






Basic 


+ : 






*\ra£. : 


PRR5 


>C1 


Go on till + 


4FB4 : 


BR 


GR0M@>4FRC 




Basic 


FOR: 






4FBB : 


CGT 


6)8342. >00 




4FB9 : 


BR 


GR0M§)5671 


Incorrect statement 


4FBB : 


XML 


> 13 


Fetch variable name 


4FBD : 


CZ 


VDP*>834R 


Not present ? 


4FC0 : 


BR 


GR0Me>S671 


Incorrect statement 


4FC2 : 


CEQ 


§>8342. >BE 




4FC5 : 


: BR 


GR0Me)5671 


Incorrect statement 


4FC7 : 


; XML 


>14 


Build stack entry 


4FC9 : 


; XML 


>1B 


Fetch byte 


4FCB ; 


; ST 


@>834C, >67 


FOR tag 


4FCE ; 


; DST 


§>8350,§>832E 


Rctual line number 


4FD1 ; 


; DST 


§)835C.@>836E 


Stack pointer 


4FD4 : 


; DCGT 


§>835C,§>8324 


Compare with start value sta 


4FD7 : 


: BR 


GROMe>5007 




4FD9 : 


; CEQ 


VDP§>0002(@)835C) , >B7 Rnother Loop ? 


4FDE ! 


: BR 


GR0Me>4FEC 


No , i ump 


4FE0 ; 


; DCEQ 


VDP*>835C,§>a34fl Same Loop ? 


4FE4 ; 


; BS 


GR0M§>4FF2 




4FE6 : 


: D5UB 


§>835C, >0018 


3*8 


4FEfl 1 


! BR 


6R0Me>4FD4 




4FEC ; 


: DSUB 


e>835C, >0008 


-6 


4FF0 : 


: BR 


GR0Me>4FD4 




4FF2 


: Ubi 


e>835E.e>836E 


k/alue stack painter 


4FF5 


: DSUB 


§>835E,e>835C 


Minus old value stack pointe 



- 193 - 



4FF8 


: B5 


GROMe>b003 








4FF0 


: MOVE 


e>835E rO VDPe>FFF0(e)835C) FROM VDP§>0008(§>a35C) 


5003 


: D5UB 




-24 






5007 


: XML 


>17 


VPU5HG 






5009 


: XML 


>17 








500B 


: XML 


>17 








500D 


: PRR5 


>B1 


Go on till TO 






500F 


: XML 


>17 


VPUSHG 






5011 


: CEQ 


@>8342, >B1 


TO? 






5014 


: BR 


GR0M§>5671 


Incorrect statement 






5016 


: XML 


>1B 


Fetch byte 






5018 


: PRR5 


>B2 


Go on till 5TFP 






501P 


: CH 


§>834C, >63 


Nil rfTtP rip ? 






501 D 


: B5 


GR0M@>4D81 


Ti r* 1 nn niimhop mi cmatfh 

■J W 1 X 1 1^ 1 lUlllUC 1 III X 91 lid ^ lal 1 






501F 


: D5UB 


@>&36E >0020 


Miniic: 

1 IX 1 IU9 "InU 






5023 


: XML 


>17 


VPUSHG 






5025 


: CZ 


@)6342 


End of line ? 






5027 : 


! B5 


GROM§>5045 








5029 ; 


: CEQ 


@>8342, >B2 


STEP? 






502C ; 


: BR 


GR0Me>5671 








502E : 


: DRDD 


@>836E, >0018 








5032 : 


: XML 


>1B 


Fetch bytG 






5034 ; 


: PRRS 


>00 


bo on till end of line 






5036 ; 


: D5UB 


@>a36E >00ia 








503n : 


: DCZ 


e>834P 


0? 






503C ; 


: BS 


GR0M@>4D7C 


Bdd vdlue 






503E : 


: CH 


§>834C , >63 


J^i xiiy Lciyt 






5041 ; 


: B5 


GR0M@>4D81 






5043 : 


: BR 


GROM@>504B 








5045 : 


: MOVE 


>0008 TO §>834P 


FROM GROMe)50C0 Error 


value 1 


on s 


504B : 


: XML 


>17 


VPUSHG 






504D : 


: DPDD 


@>836E, >0010 








5051 ; 


! XML 


>18 


VPOP 






5053 : 


! XML 


>15 


Rppoint value to variable 




5055 ! 


; DRDD 


@>836E, >0008 








5059 : 


1 D5T 


§>8300,VDPe>0004(§>836E) Fetch pointer 


to value 


nf < 


505E : 


1 MOVE 


>0008 TO @>835C 


FROM VDP*)8300 Value on 


1 RRG 




5064 ; 


: MOVE 


>0008 TO e>a34P 


FROM VDP6)FFF0(6>836E) 


Limit on 


PDr 


506C : 


: XML 


>0R 


FCOMP 




506E : 


; BS 


GROMe>507B 


Equal, end 






5070 : 


: CLOG 


VDP§>FFF8(e>836E) , >80 Negative? 






5076 ! 


; BR 


GROM§>507C 








5078 ; 


: GT 




Test if greater 






5079 ! 


; BS 


GROMe>507F 






507B : 


: CONT 










507C : 


GT 




Test if greater 






507D : 


BS 


GROMe>507B 






507F : 


ST 


§>8300, >01 








5082 : 


DST 


e>8302,e>632E 


Pointer to line table 






5085 : 


DST 


e> 6304,6)8330 


Start line table 






5088 : 


DINCT 


6)8304 


+2 






508P : 


DCEQ 


6 )832E, 6)8304 


Line equal ? 






5080 : 


BR 


GROMe)5094 


No , j ump 






508F : 


DST 


6)832E,6)8302 






5092 : 


BR 


GR0Me>566C 


Can't do that error 






5094 : 


CRLL 


GR0Me)2836 


Find line address and 1st token 




5097 : 


CEQ 


6)8342, >8C 


FOR? 






509n : 


BR 


GROM6)50P0 


No , go on 






509C : 


INC 


6)8300 


Counter FOR-NEXT loops 






509E : 


BR 


GROM6)50R9 






50P0 : 


CEQ 


6)8342, )S6 


NEXT? 






50P3 : 


BR 


GROM6)50R9 








50P5 : 


DEC 


6)8300 


-1 






50R7 : 


BS 


GROM6)50RB 


If zero, end 






50P9 : 


BR 


GROM6>508P 


Next line 






50PB : 


XML 


)1B 


Fetch byte 
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50nD 


CZ 


§>6342 


0? 


50RF 


B5 


GR0Me>5671 


Incorrect statement 


50B1 


XML 


>13 


Fetch name 


50B3 


DCEQ 


§>834R.VDP*>836E Equal stack entry? 


50B7 


BR 


6R0M§>566C 


Incorrect statement 


50B9 


05UB 


@>a36E, >0018 




50BD 


CLR 


§>8342 


Set end of Line 


50BF 


CONT 




Go on in Basic 


50C0 


DRTfl 


>40, >01 , >00, >00, >00, >00, >00, >00 


Basic 


randomize : 




50C6 


CZ 


@>8342 


End of line ? 


50CO 


BR 


GROM§>50D1 


No , j ump 


50CC 


5T 


e)83C1 .§>8379 


Set RRNO on random number seed 


5000 


CONT 






50D1 


PRRS 


>00 


Fetch quotation 


50D3 


CRLL 


5R0M§>4F73 


String tag? 


50D6 


DST 


@>83C0,e>a34R 


Quotation on random number seed 


50DP 


CONT 






Basic 


CALL: 






50DB 


CEO 


e>e342, >ca 


Unquoted string? 


50DE 


BR 


GR0M§>5671 


No, error 


50E0 


CLR 


e)830C 




50E2 


DST 


e>835B,e>a32c 


Pointer Basic rollout area on D5R pointer 


50E5 


CZ 


@>a389 


Program in GROM? 


50Ea 


B5 


GROM§>5101 


No , j ump 


50EP 


MOVE 


>0001 TO @>830O 


FROM 6ROM§>0000(@>832CJ Fetch length byte 


50F1 


INC 


@>830D 


50F3 


MOVE 


e>830C TO VDPe>0320 FROM GROM§>0000(e>832C) Fetch name 


50Ffl 


DST 


@> 8356.) 0320 


Set DSR pointer 


50FE 


DROD 


e>832L,§>a30C 


Text pointer plus length 


5101 


CRLL 


GROM@>0010 


Lall subprogram 


5104 


DRTfl 


>0fl 




5105 


BS 


GROMe>510C 


Not found, then error 


5107 


CZ 


§>8342 


End of line? 


5109 


BR 


GR0M§)5B71 


No, error 


51 0B 


CONT 






510C 


CRLL 


GR0M§>2a4E 


Error 


510F 


ORTR 


>20 


Bad name 


5110 


ORTR 


>40 




Basic 


s t r i ng 


in "": 




5111 


DST 


e>8366,@>a32C 


Text pointer on >8366 


5114 


CRLL 


6R0Me)511D 


Fetch text 


5117 


OROO 


§>832C.e>8350 


New text pointer 


511R 


Al ll_ 


>1B 


Fetch byte 


511C 


CONT 




Fetch 




string : 




511D 


ST 


e>6351 ,@>a342 


Length on >8351 


5120 


CLR 


§)6350 


5122 


DST 


§>830C,e>8350 


Length(word) on >830C 


5125 


CRLL 


GR0M§>515C 


Fetch space for string 


5128 


ST 


§> 8352, e> 8389 


GROM flag 


512C 


DST 


e>634R. >001C 


Tag for quotation 


5130 


DST 


e)ti34E,@>a31L 


Rddress 


5133 


DST 


e>834C, >6500 


String tag 


5137 


DCZ 


e>e30c 


0? 


5139 


BS 


GR0Me>514E 


End 


513B 


CZ 


e>e352 


GROM? 


5130 


BR 


GR0Me>5l47 


Yes, iump 


51 3F 


MOVE 


@>a30C TO VDP*>a31C FROM VDP*>83B6 Fetch string from VDP 


5145 


BR 


GR0M§>514E 




5147 


MOVE 


@>e30C TO VDP*>e31C FROM GROM§> 0000(6)8366) Fetch string from GROM 
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51 4E : RTN 



D .1 *ir 












5154 ; 


: BR 


6RQMe>512C 


5156 i 


; CRLL 


6R0M§>515C 


5159 ; 


: CLR 


@>a323 


51 5B ! 


: RTNB 





Fetch space for string 
Build string stack entry 

Fetch space for string 
Clear error code 
Go on in Basic 



Length+4 (address and twice length byte) 
Start string space 
Minus length 
lvalue stack pointer 

+ 8*a 

Enough space? 
Yes, jump 

Garbage collection 
Compute space once more 



Fetch space for string: 

515C : DPDD @>830C, >0004 

5160 : DST e>8356,§>831P 

5163 : D5UB §>8356,e)830C 

5166 : DST §>8358,§>836E 

5169 : DflDD @ > 8358, > 0040 
51 6D : DCH @ > 8356 , 6 > 8358 

5170 : BS 6R0M§>5187 
5172 : CRLL GR0M§>51R9 
5175 : DST §>a358 ,e>836E 
5178 : DRDD @>8358,>0040 
517C : DST §>8356,§>831R 
51 7F : DSUB e>8356,e>830C 
5182 : DCH e>8356,§>8358 

5185 : BR 6R0Me>567D No space, memory full 

5187 : DSUB e>830C,>0004 Length -4 

518B : ST VDP^*>831fl,e>830D Write length byte in VDP 

518F : DSUB e>831fl,§>830C Start string space minus length 

5192 : DST ©>831C,@>831R Temporary pointer on string space 

5195 : DSUB §>831fl, >0004 -4 

5139 : DCLR VDP§>0001 (§>831R) Free 

519D : ST VOP§>0003(§>a31R),e>830D 2nd length byte in VDP 

51 R2 : RTN 



51 R3 : CLR e>8323 
51R5 : CRLL 6R0Me>51R9 
51 R8 : RTNB 

Garbage collection; 



Clear error code 
Garbage collection 



51R9 
51RC 
51RF 
51B2 
51B4 
51 B6 
51 B8 
51 BC 
51 BF 
51C1 
51 C4 

51C5 
51C8 
51CC 
51CF 
51D1 
51 D4 
51D8 
SIDE 
51E2 
51 E6 

51 E8 
51EB 
51ED 
51 EF 



DST 
DST 
DST 
DINC 
DDEC 
CLR 
ST 

DCHE 
BR 
DST 
RTN 

DSUB 
DSUB 
DCZ 
BS 

CRLL 

DRDD 

DST 

DST 

DSUB 

BR 

CEQ 
BR 
XML 
XML 



Pointer free space under symbol table 
End string space (high address) 
New pointer end string space 



§} 8354, 6 > 8340 
6)8352,6)8318 
6)8318,6)8340 
6)8352 
6)8352 
6)8356 

6 ) 8357, VDP* > 8352 Length first string 
e)831R, 6)8352 Unprotected string? 
6R0Me>51C5 No, shift if necessary 

e>831R,6>6354 New pointer start string space 



low address 



6)8352,6)8356 String space minus length of 1st string 

6)8352, )0003 Minus 3, points to address 

VDP*) 8352 0? 

GR0M6)51B4 String cleared, jump 

6R0Me)5423 Shift string 

6)8354,) 0004 ^4 

e>8358,VDP6>FFFD(e)8354) CDP address symbol table 
VDP* > 8358, 6)8354 New address 

6)8354,) 0004 -4 

GR0Me)51B4 Go on 

6>834C.)65 String tag? 

GR0M6)4D81 Error string number mismatch 

)17 VPU5H6 

)1B Fetch byte 
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J if- 1 



KIN 



51F2 : 


: CLR 


§>8323 


Clear vector 






51F4 ; 


: CRLL 


6R0Me>51E8 


Check string tag 






51F7 ; 


: PRRS 


> B6 


Fetch 2nd string 






51 F9 ; 


: CEQ 


§>834C,>65 


String? 






51FC ! 


: BR 


GR0M§)4D81 


No, error 






51 FE ; 


: DST 


@>a30C,§>8350 


Length 






5201 ; 


: OnOD 


e>830C,VDPe>0006(e>838E) Plus length of 1st 


string 


from value stack 


5206 ; 


: DCH 


§>830C, >00FF 


Smaller than 255? 




520P ; 


: BR 


6ROM§>5210 


Yes, jump 






520C : 


: DST 


e>830C, >00FF 


That's all 






5210 : 


; DST 


§>836a,@>830C 


Save on )8368 






5213 ! 


: XML 


)17 


VPU5H6 






5215 ; 


; CALL 


6R0Me>515C 


Fetch space for new string 






5218 : 


; XML 


>18 


VPOP 






521fl ; 


: MOVE 


>000a TO §>a35C 


FROM 6)834R Stack entry on 


RR6 




521F 1 


; XML 


>18 


VPOP 






5221 ; 


: DST 


§>8366,e>a34E 


Rddress 1st string 






5224 ! 


: DST 


e>830C,§)8350 


Length 






5227 : 


; CLR 


e>8352 








5229 ; 


: CRLL 


GR0M§>512C 


String into new space 






522C 1 


: DCZ 


§>8362 


2nd string with length 0? 






522E ; 


I B5 


6R0M§)5246 


Yes, end 






5230 ! 


; DST 


e>8364,§>831C 


Rddress 






5233 ; 


: DROD 


e> 8364,6)6350 


Plus length of 1st strings 






5236 ! 


; DSUB 


@ > 8366. §> 8350 


Total length minus length of 


first 


string 


5239 ; 


: DCZ 


6)8366 


Number 0? 




523B ! 


; BS 


GR0M§)5246 


Yes, jump 






523D ! 


; MOVE 


e>8368 TO VDP*)6364 FROM VDP*)6360 Add new 


string 




5243 ! 


I DRDD 


6)8350,6)6368 


New length 




5246 ; 


: DST 


6)8366,6)6360 


Rddress of 2nd string 






5249 ; 


: CQNT 









Basic 


SEG$: 






S24R ; 


: CRLL 


GR0Me)57R6 


Token (? 


524D 1 


: XML 


)1B 


Fetch byte 


524F ; 


! PRRS 


)B3 


Go on till , 


5251 ! 


! CEQ 


6)8342. >B3 


Token ,? 


5254 ; 


: BR 


GR0Me)5671 


No, error 


5256 : 


! CRLL 


6R0M6>51E6 


Control I string and VPU5HB 


5259 : 


: PARS 


>B3 


Till , 


525B : 


: CEQ 


6)8342, )B3 


Token ,? 


525E : 


: BR 


GR0M6)5671 


No, error 


5260 : 


: CALL 


GROMe)5740 


Convert into integer 


5263 : 


: DCZ 


6)634R 


0? 


5265 : 


: BS 


GR0M6)4D7C 


Error 


5267 : 


: XML 


)17 


VPU5HG 


5269 : 


: XML 


)1B 


Fetch byte 
Go on till ) 


526B 


: PARS 


)B6 


526D 


: CEQ 


6)8342. )B6 


End ? 


5270 ; 


: BR 


6R0Me)5671 


No , end 


5272 : 


: CALL 


GROM6)5740 


Convert into integer 


5275 ; 


: DST 


6)835C,6)834R 


Save on )a35C 


5278 : 


: XML 


)18 


VPOP, Fetch position 


527fl ; 


: DST 


6)835E,6)e34A 


On )a35E 


527D ; 


: XML 


)18 


VPOP 


527F : 


: DST 


6)8356,6>835E 




5282 : 


: DCH 


6)8356,6)8350 


Longer? 


5285 ; 


: BS 


GRCM6)52Bfl 


5287 : 


: DRDD 


e)6356.6)635C 


Plus length 


528R : 


: DSUB 


6)6356,6)6350 


528D : 


: DDEC 


6)6356 




528F : 


: DC5E 


6)8356, ) 0000 


Still greater than 0? 


5293 : 


: BR 


GR0Me)529D 


5295 : 


: DST 


6)635C,6)6350 


New length 
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5298 : 


: D5UB 


§>e35C,e>835E 


Minus position 


529B : 


; DINC 


§>835C 




529D ! 


: D5T 


©>830C,e>635C 




52R0 ! 


; XML 


>17 


VPU5HG 


52fl2 ; 


; CRLL 


GR0M@>51SC 


pGtch space fop string 


52R5 ; 


; XML 


>18 


VPOP 


52R7 ; 


; D5T 


@>8366,@>a34E 


Rddress 


52nn ; 


: DRDD 


e > 8366, @> 8356 


Plus length 


52RD ; 


: DDEC 


@>8366 


Minus 1 


52RF i 


: D5T 


e>8350,©>830C 


Length 


52B2 : 


: CLR 


§>e352 


52B4 ; 


: CRLL 


GR0Me)512C 


Fetch string 


52B7 ; 


! XML 


>1B 


Rppoint value 


52B9 : 


: CONT 




52Bfl 1 


: DCLR 


@>835C 


Length 


52BC ; 


: BR 


6R0M§>529D 


Go on 



Basic 


LEN: 






52BE : 


: CRLL 


GR0Me>57R6 


Check token ( 


52C1 ; 


! PRRS 


>FF 


Go on 


52C3 ; 


: CEQ 


e>834C, >B5 


String tag? 


52C6 : 


BR 


GR0Me>4D81 


No, error 


52Ca : 


: 5T 


e>835C,§>8351 


Length 


52CB : 


: CLR 


6)8350 


52CD ; 


: MOVE 


>0008 TO e>834R 


FROM 6ROM§>50C0 1 on FflC 


52D3 : 


: CH 


e>835C,>63 


Greater than 100? 


52D6 ; 


: BR 


GROM§>52E0 


No , end 


52D8 : 


: EX 


e>835D,@>835C 


In Lbyte 


52DB 


: DIV 


e>835C, >64 


/100 


52DE 


: INC 


@>834R 


Plus 1 


52E0 


: D5T 


e>834B,@>835C 


Back 


52E3 


: C2 


e>834B 


0? 


52E5 


: BR 


6R0M§>52E9 




52E7 : 


: CLR 


e>834R 


Well then 


52E9 ; 


: CONT 







Basic 


CHR$: 








52ER ; 


: CRLL 


GR0M§>57H6 


Token (? 




52ED ; 


! PRRS 


>FF 


Go on 




52EF ! 


; CRLL 


GROMe>5740 


Convert into ii 


52F2 ; 


: D5T 


e>a30c, >000i 


Length 1 




52F6 ; 


: ST 


<^DPe>03DD,@>834B Save in 


VDP 


52FR ; 


: D5T 


e>83B6, >03DO 






52FE ; 


: CALL 


GR0Me>514F 


Space for 


strii 


5301 ; 


: D5T 


6)8350,) 0001 


Length 1 


5305 ; 


: CONT 







Basic 


R5C: 






5306 ; 


: CALL 


GR0Me>57R6 


Check token ( 


5309 ; 


: PRRS 


>FF 


Go on 


530B : 


! CEQ 


e>834C,)65 


String tag? 


530E : 


: BR 


GR0M6>4D81 


Error 


5310 : 


r CZ 


6)8351 


Length 0? 


5312 : 


: B5 


6R0Me)4F74 


Error 


5314 ; 


: ST 


e)835C,VDPi<->834E Fetch 1st byte from string 


5318 : 


: BR 


GR0Me>52CB 


Go on by converting into floating point 


Basic 


STR$: 






531 R : 


: CRLL 


GR0Me)57R6 • 


Check token (? 


531 D ; 


: PARS 


>FF ■ 


Go on 


531F ; 


: CHE 


6)834C, )64 


Numeric ? 


5322 ; 


: B5 


6R0M6)4D81 


No, error 


5324 ; 


: CLR 


6)8355 




5326 ; 


: CRLL 


GROM6)0014 


Convert number to string 


5329 ; 


: CEQ 


»)8355, )20 


Is 1st byte of. string space? 


532D ; 


: BR- 


6R0M6)5333 
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T Ktr 


e > O J33 


HauPess + 1 




UCl_ 


G / (3 JbD 


Lengtn - i 




. n R 
: i_i_r\ 


@>630C 


Length 




. D 1 


e>630D,@)8356 


Complete length 


3>J<JO 


• MltUP 

r nuvc 


e)630C TO yDP§>03C0 FROM *>835S String in VDP 




U3 1 


€ > odob , > l^dLId 




5342 ; 


: CALL 


Ur\UnC / 3 1 *lr 


P i U f 4. • U • 1 J 

petch space tor string; ouiLd 


5345 ; 


: D5T 


C > odbU , 6 > odUL 


Length on stack entry 


bJ4o 








D3S 1 C 


VHI- : 








L.HLL 


bKUne>b/Hb 


Lheck token k i 






>rr 


bo on 




pen 


« ) b J^L , > bb 


b t r 1 ng tag r 


b Jo 1 


an 


fZDnMA V y( no -1 
uKUne>4Uo1 


No, error 






A \ 1 
6 ) 0<33 1 


1 annfl-i d'7 

uengLR xit 




D3 


(^PnMAs^P7^ 
wnui IS / HP / *f 


Dau aryuiTicsnL 


3 Jo/ 


Ub 1 


A \ AQCC A V AQ/iP 

6 > odbb , 6 > □ Jmc 


Hointer to string 


3<33H 


nnnn 


C > odbb , 6 > odblfl 


D 1 ■ 1 nni-i 4- 1-1 

Plus lengtn 


3J3U 


nnrr 


e>8366 


Minus 1 




Ub 1 


@>830C,e>8350 


Save length 


30D^ 




VUr*>odbb, 


bpace r 


3JDO 


RP 


uRuMC>3d71 


No, execute 


3dba '. 


nncf~ 
UUhL 


§>830C 


Length -1 


536R ; 


: B5 


uRuMe>4r74 


Now 0? Then error 


53BC ; 


: DDEC 


@)&366 


Rddress -1 




D 


ponMA k coco 

oKUne > 3db<i 


New start 


ca7i 

3J/ 1 


riTKir 
UiNL 


e > odtsL 


Length - I 


3J/ J 


VMI 

ArlL 


k 1 7 
> 1/ 


VrUbnu 


ca7c: 

3J/3 


rni 1 
LHLL. 


(ZDnMA \ C 1 CP 

uKUrlQ > b 1 bL 


Fetch space for string 


ca7A 


VMI 
ArlL 


V 1 A 

> lo 


vrUr 


ca7D 


Ub 1 


A\A'aCC AvA'a^P 

C > odbb , e > ad*tc 


Pointer to string 


3J/ U 


l_Lr< 


6 > odb^ 


ca7c 
3d/r 


LHLL 


bKUnB>bnd/ 


retch string 


3do^ 


nnnn 
UHUU 


B>6d0L ,C)ad1L 


Rddress to length 


3<303 


nnpr 


A \ AQCIP 
C > OdclL 


— 1 


caA7 

3 JO/ 


3 1 


1 inD^ V AOQp V oni 
VUp* > oduL 1 > 


Space 


CQAn 
3JOD 


Ub 1 


e>8330,@>831L 


Pointer to string 


caAC 


ppn 


1 inD^ V QOCC » OI5I 

vUr*>odbb, >cxi 


Space? 


C'QQ'7 




uKunc > bdbb 


No , convert 


CaQyS 
3J3*I 


UlNL 


6 ) 8356 


Pointer +1 


3J3D 


D 


fzoniwcA \ caAc 
unUnC > bdoc 


Once again 


CaQQ 


ri D 
LLr\ 


§>834C 


CaQD 

3J3D : 


: LLK 


e>8354 




c'aqn 
3J31J 


VMI 

AnL 


> va 


Convert string into number 


Q'aQP 
3J3r 


. nrpn 




3JH^ 


! UK 


6R0M§>4F74 


Error bad argument 


5304 ; 


: CZ 


©>8354 


Error? 


53RB ; 


: BR 


uRurl@ > 5do3 


Yes, number too big 


cono 
bdHO 


: LUN 1 






Basic 


Dnc . 
rUb : 






cana 
bJHs 


i~ni 1 
: LHLL 


6R0Me>57R5 


Check token ( 


caor 

3JHL 


VMI 

: ArlL 


> IB 


Fetch byte 


caoc 

3JHC 


Dnoc 
rHKb 


>B3 


Go on till , 


cana 
bdDid 


: LbU 


§>8342, >B3 


Token ,? 


canq 

3JDO 


DO 


GR0Me>5671 


No, error 


bJDb 


: LHLL 


PDHMA s P 1 PA 
Ut\UriC ) 3 1 CO 


btringr Hna on stack 


bJDO 


rHHb 


>B3 


Go on till , 


bdoH '. 


pen 
: LbU 


e>8342, >B3 


Token ,? 


bdoU : 


UK 


6R0M§>5671 


No, error 


bdtlr 


pni 1 
: LHLL 


BR0M§>51E6 


String? Rnd on stack 


53C2 1 


: PRRS 


>BB 


Go on till ) 


53C4 ; 


: CEQ 


§>8342, >B6 


Token J? 


53C7 ; 


: BR 


6R0M8>5671 


No, error 
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; CRLL 

; DC2 

: Bb 

; DST 

; DDEC 

: XML 

i MOVE 

; XML 

; CZ 

: B5 

: CH 

; BR 

; CZ 

: B5 

: DnOD 

: SUB 

; CHE 

: BR 

; DST 

; DST 

; ST 

i CEQ 

; BR 

; DINC 

; DINC 

: DEC 

; BR 

; INC 

; ST 

; XML 

; BR 

; INC 

; DEC 

: DINC 

: BR 

CLR 

BR 

string 
DRDD 
DST 
D5UB 
DSUB 
DINC 
BS 

DCHE 
BR 
DST 
DST 
DflOD 
DSUB 
DSUB 
MOVE 
DSUB 
: BR 
RTN 



6ROMe>5740 

5R0M§>4D7L 

e>830C,§>e34R 

@>d30C 

>18 

>000e TO §>835C 

>ia 

§>8351 
GR0Me>541F 
@>8351 ,e>830D 
GR0M§>541F 
@>8363 
6ROM§>540E 
e>834E.§>830C 
6 > 8351 ,§>830D 
e>8351 ,6)8363 
GR0M§>541F 
@)834R,e>834E 
§>835C,@>8360 
e > 8364, §> 8363 



Numeric, convert into integer 

Not too big? 

Yes, error 

Save position 

-1 

VPOP 

FROM e>834R Stack entry on RRG 
VPOP 

0-String? 
Yes, jump 

Position behind length of string? 
Yes, jump 

Search string with Length 0? 
Yes, jump 

Compute address from search point 



fit? 



Does it still 
No , j ump 

Compute addresses 
Length 



in VDP for searching 



VDPit>835C,VDP»>a34R Equal ? 



6R0M§>5417 
e>834R 
e>835C 
@>8364 
GR0Me>53FF 
e>830D 

@>835C,e>830D 
>1B 

GR0Me>52CB 

§>830D 

§>8351 

@>834E 

GR0Me>53F1 

e>830D 

GROMe)5410 



6 > 8356, >0004 
§> 8358, §> 8354 
§> 8358, §> 8352 
6 > 8358, §} 8356 
@>8358 
GR0M§>5455 
@> 8358,6)8356 
GR0Me>543C 
6)8358,6)8356 
6>835R,6)a352 
e>835R,6)8356 
6)835R,6)8358 
6)8354,6)8358 



No , 3 ump 
Increase addresses 

Decrease Length 
Rnd go on 

Found, correct position 



Fetch byte 
Convert data 
+ 1 
-1 
+ 1 

Once 


End 



on )a35C in floating point, end 



again 
with 



Length +4 

Pointer to free space 
Minus end string space 
Minus length 
0? 

Yes, jump 

Greater than length? 



Length 

End string space (low address) 
Plus length 

Minus old pointer to free space 
Minus Length 

6)8358 TO VDP6)0001 (6)8354) FROM VDPit)835H Shift string 
6)8356,6)8358 0? 
6R0M6)5427 No, again 



5455 : DSUB 6)8354,6)6356 New pointer free space 

5456 : RTN 



Basic TRRCE: 

5459 : OR 6)8388,) 10 

545D : CONT 

Basic UNTRRCE: 

545E : RND 6)8388, )EF 



Set trace flag 
Clear trace flag 
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5462 : CONT 



Bas ic 


BRERK : 






5463 ; 


: 5T 


§>8300, >FF 


Break flag 


5486 : 


: CZ 


e>6342 


End of Line? 


5466 : 


: BR 


GR0Me>547F 


No, go on 


546fl 1 


; DCZ 


e>8344 


Run flag? 


546C ; 


: BS 


6R0M§>566C 


No, can't do that 


546E ; 


; D5T 


VDP§>03EC,@>632E Save actual Line pointer into VDP 


5472 ! 


; D5UB 


VOPe>03EC, >0004 


-4 for next Line 


5477 1 


: BR 


6R0M§>4E3C 


End of program 


Bas ic 


UNBREHK: 




5479 ; 


: CLR 


@>6300 


Unbreak flag 


547B ; 


: CZ 


@>6342 


End of Line? 


547D ; 


: B5 


GR0Me)54BC 




547F ; 


! CRLlj. 


GR0M§>56BB 


Fetch Line number 


5482 ; 


: D5T 


e>6312,e>6332 


Pointer to Line table 


5485 ; 


: D5UB 


@>6312, >0003 


1st Line number 


5489 ; 


: DCHE 


e>6312,e>6330 


StiLL greater than lower end of Line 


546C 1 


: BR 


GR0Me)54B5 


No , j ump 


546E ; 


: DCEQ 


yDP*>8312,@>834R Rigth line ? 


5492 ; 


: B5 


GR0Me>549R 


Yes, jump 


5494 


: D5UB 


e>6312, >0004 


No, next line 


5496 


: BR 


GR0Me>5469 


Mnd once more 


543R 


: DINCT 


§)6312 


On pointer to line 


543C 


: RND 


yDPi*>8312, >7F 


> bit reset 


54n0 


: CZ 


@ > 6300 


Break flag? 


5402 ; 


: BS 


GR0M@>b4R8 


No 1 j ump 


54P4 : 


: OR 


VUl TT / OJ \^ f f UlLI 




54R& 


: CZ 


@>6342 


l~nH nf 1 \ no 


54fiP 


: B5 


wr\ui \\Z / 




54RC : 


: CEQ 




Token ? 


54RF 


: BR 




No , error 


54B1 


: XML 


/ID 


nt5UL.11 uy 


54B3 


: BR 


fnRnMd^^47P 
urMJI Itf / / 1 


uni-tf cjyalll 


54B5 


: CRLL 




Error 


54B6 


: DRTR 


/ £x} 


Bad Line number 


5489 


: DRTR 


\ HQ 




54BR 


: BR 






54BC 


. [)ST 




ptart line table 


54BF 








54C1 


: RND 


VDP*>6312. >7F 


Reset bit 


54C5 


: DRDD 


@>6312, >0004 


Next Line 


54C9 


: UL.n 


e>6312,§>8332 


Till upper end of Line List 


54CC 


: on 


6R0Me>54C1 


Loop 


54CE 


• rnwr 






54CF 


. n 
: Li-iX 


e>6351 


No argument 


5401 


. nri R 

: UL.L.i\ 


e>8322 


54D3 


. ri R 
: L.L.r\ 


e>835E 




54 D5 


: CLR 


§>834C 




54D7 


: CEQ 


§>8342, >B7 


Yet argument? 


54DR 


: BR 


GR0M§>54ED 


No , i ump 


54DC 


: XML 


>1/ 


VPUSHG 


54DE 


: XML 


>1B 


Fetch byte 


54E0 


: PRR5 


>B6 


Fetch argument 


54E2 


: XML 


>1B 


Fetch byte 


54E4 


: MO^^E 


>0006 TO @>a35C 


FROM ©>a34R Stack entry argument on 


54E9 


: XML 


>16 


VPOP 


54EB 


: INC 


e)tt35i 


Count argument 


54ED 


: ST 


e > 6366, e> 6351 


Save 


54F0 


: D5T 


@>6364,@>634R 


Save pointer on entry symbol table 


54F3 


: XML 


>17 


VPU5HG 


54F5 


: MOVE 


>0008 TO e>a34R 


FROM e>835C Rgain on FHC 


54Ffl 


: XML 


>17 


VPU5H6 
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ST 

ST 

RND 

CEQ 

BR 

D5T 

CLR 

AND 

DSUB 

D5T 

D5T 

XML 

DRDD 

D5T 

XML 

CH 

85 

MOUE 

OR 

ST 

CEQ 

BR 

CLR 

CRLL 

DDECT 

CLR 

BR 

CRLL 

XML 

RND 

MOVE 

ST 

DST 

DST 

XML 

MOVE 

XML 

MOVE 

MOVE 

XML 

MOVE 

CEQ 

BR 

DCEQ 

BS 

DST 

XML 

XML 

PRRS 

CEQ 

BR 

CZ 

BS 

BR 

CZ 

BR 

CRLL 

DST 

DDEC 

XML 

CQNT 



Fetch entry symbol table 



Equal type? 

No, error incorrect statement 
Program text pointer 

String or not? 

Value stack pointer 

Old pointer to symbol table 

Old pointer free space symbol table 

VPU5HG (Stack entry DEF) 

Stack pointer 

Pointer to definition is new text 



Dummy entry into symbol table 
Text pointer minus 2 
Clear on stack 



e)a34C,VDP*>a3B^ 

@)a34D,@>a34C 
e>834C,>07 
e>834C,§>a366 
6R0M§>5671 

e>a34R,e>a32c 

§>834C 

§>a34D, >a0 

@>a36E, >0010 
e>a34E,e>833E 

e>a350,§>a340 

>17 

@>a36E, >000a 

§ > a32C . VDPe > 0006 1 e > 8364 ) 

pointer 
)1B Fetch byte 

§>a373,>RC Substack to high? 

6R0M§)567D Error memory full 

>00ia TO VDPe)03C0 FROM §>8300 Save several pointers 
§>838a. >08 Set flag 

e>a316,>e0 Length 
e>a342,)BE Token =? 

6R0Me>5S4E No, jump 

e>a359 
GR0Me>2840 
e>832C 

VDPe>0002(@>836E) 
6R0M§>5551 
6R0Me>284a Entry symbol table 

>1B Fetch byte 

e>83aa,>F7 Clear flag again 

>0016 TO e>a300 FROM VDP§>03C0 Old value again 
VDP§>FFFfi(e>83BE} , >68 DEF key value 

VDP§)0002(§>833E),VDP§)03E0 Pointer next entry symbol table 
e>a34R,e>a33E Pointer symbol table 
>14 Build stack entry 

>000a TO @>8352 FROM e>a34H Save on >a352 
>18 VPOP 
>0008 TO §>835L FROM e>a34R 
>0008 TO e>e34R FROM §>8352 
>17 VPU5H6 
>0008 TO @>a34R FROM @)835C 
e)834C,>65 String? 
GR0M§>5535 No, jump 

e>834fl,>001C Quotation? 
GR0Me>5S95 No, jump 

§>a34E,VDP*>a34fl Rddress string pointer 
>1B Fetch byte 

>15 Rppoint value to variable 

>00 Execute DEF 

§)a34C,>6S String? 
GR0Me>55Ra No, jump 

VDPe>0003(e>836E) Flag for string (>a0)? 
GR0Me)4D81 Yes, error 

6R0M§>55RE Jump 

VDP§>0003(@>a3BE) Flag for numeric (>00J? 
6R0M§>4D81 No, error 

GR0M§>55BB Protect string 

§ > a32C , VDPe > 0008 ( e > 836E } 
e>832C Text pointer 

>1B Fetch byte 

Go on in Basic 



Save on >e35C 
On FHL again 

On FRL again 



55BB : DST 6)8366 .e>a33E Save pointer to symbol table 

55BE : MOVE >0004 TO e>a33E FROM VDPe>0004(e>a36E) Fetch 4 bytes from stack 
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55C5 ; 


: CBE 


VDP*>836B, >00 String? 


55C9 ! 


: B5 


6R0Me>55FB No, jump 


55CB ; 


: DST 


§>8366,VDPe>0006(e>a36B) Fetch pointer to value 


55D0 : 


; DCZ 


e>6366 0-string? 


55D2 1 


: BS 


GR0M§>55E4 Yes, jump 


55D4 ; 


; DST 


e > 8356, VDP§>FFFD(§) 8386) New pointer before string 


55DR 1 


: DCHE 


§>8356,§>833E String lies above symbol table 


55DD i 


: B5 


6R0Me>55E4 Yes, jump 


55DF ; 


: DCLR 


VDP§)FFFD(§>8366) Clear string 


55E4 ; 


; CEQ 


e>834C,>65 String tag? 


55E7 ! 


; BR 


6R0M§>55FB No, end 


55E9 ; 


: DCHE 


§>834R,§>a33E 


55EC ; 


; BS 


6R0M@>55FB 


55EE ; 


: DCZ 


e>834E 


55F0 ; 


: BS 


GR0Me>55F7 


55F2 ; 


; DCLR 


VDPe>FFFD(e>834EJ No value 


55F7 ; 


; DST 


e>834n,>001C Quotation 


55FB 1 


; DSUB 


e>836E, >0008 Stack -8 


55FF ; 


; RTN 





5600 : 


; PRRS 


>B6 


Go on till } 


5602 : 


; CRLL 


GR0Me)4F/9 


Check string tag 


5605 : 


: UST 


@>8310, >001E 


Limit d0 


5609 ; 


! CRLL 


GR0Me)378b 


CFl 


560C ! 


; 5RL 


e>834B. >01 


Divide by 2 


560F ; 


: OR 


e>834B, )F0 


Set the first 4 bits 


5612 ! 


i RTN 







5613 : 


: DDEC 


@>833B 


On pointer to line 


5615 ! 


; CZ 


e>6389 


In BROM? 


5618 : 


; BR 


GR0M§>5623 


Yes, jump 


5B1fl : 


; DST 


e > 6334 .VDP*> 8336 Fetch pointer to line 


561 E ! 


; RNO 


§>8334, >7F 


Bit reset 


5621 ; 


; BR 


GR0Me>5B2fl 




5623 ; 


; MOVE 


>0002 TO §>8334 


FROM BROMe ) 00001 §> 8336 


562R : 


: SI 


§>834D,§>8389 




562E : 


; CALL 


BROM§)4010 


Fetch DRTR 


5631 : 


; CEQ 


§>8301 . >93 


Token DRTR? 


5634 ; 


; B5 


GR0M@>5644 


Yes, end 


5636 : 


i DDECT 


e>8336 


Next line 


5638 ; 


; DCEQ 


©> 8336. e> 8330 


End of line list? 


563B 1 


; BS 


GR0M@>5B41 


Yes, end with flap 


5630 ; 


; DDEC 


@>6336 


-1 


563F ; 


: BR 


GR0Me>5613 


The same once again 


5641 : 


: ST 


e>8334. )FF 


No more data for RERD 


5644 ; 


; RTN 







5645 : CZ ©>8389 In BROM? 

5648 : BR BR0Me>5652 

564fl : DST e>a35E , VDP§)FFFE(@)632E) Fetch line number from VUP 

5650 : BR GR0M@>5659 

5652 : MOVE >0002 TO e>835b FROM BRUMe>FFFE(e)832h J Fetch Line number from GRUM 

5659 : B GR0M@>2642 Stop writing on screen 



Jump table for error codes on >8322: 
565C : CfiSE e>8322 



565E : 


! BR 


GR0M@>5671 


5660 : 


; BR 


GR0M§>567D 


5662 ; 


; BR 


GR0Me>4D7C 


56B4 ; 


; BR 


GR0M§>S6a2 


5666 : 


; BR 


GR0Me>566C 


5668 ; 


; BR 


GR0Me>5B78 


566R ; 


: BR 


6R0Me)4D81 



Call error : 

566C : CRLL 6R0M@>284E 
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566F 


DRTR 


>20 


Can' t do that 


5670 


DflTR 


>BD 




5671 


CRLL 


GRQM@ > 284^ 




5674 • 


DOTR 


>20 


Incorrect statQiran 


5675 


DRTR 


>2C 




5676 


BR 


6R0M§>4E58 


Basic return 


5678 


CRLL 


GR0M§>264E 




567B 


DRTR 


>20 


Bad subscript 


567C 


DRTR 


>R1 




567D 


CALL 


GR0M§>2a4t: 




5660 


DRTR 


>20 


Metro ry full 


5681 


DflTR 


>49 


5662 


CRLL 


GR0Me>2ti4E 




5665 


DHTR 


>20 


Bad line number 


5666 


DRTR 


>D9 




5567 


BR 


GR0Me>4E56 


Basic return 


5689 


CH 


e>6373, >B0 


Substack to high? 


568C 


BS 


GR0Me)567D 


Yes, memory full 


568E 


CRLL 


GR0Me>284C 


Print warning 


5691 


DRTR 


>20 


Number too big 


5692 


DRTR 


>6E 


5693 


DCLR 


e>6322 


Reset error code 


5695 


RTNB 







5696 


DCLR 


§>6322 


Error code 


5698 


CRLL 


GR0M§>4F7H 


Check substack with garbage collection 


569B 


CH 


e>634C. )63 


Nume r i c ? 


563E 


BS 


GR0Me)4D61 


String number mismatch 


56R0 


CH 


VDP@>0002(e>836EJ . >63 Numeric ? 


56R5 


Bb 


GRdM@)4D81 


String number mismatch 


56R7 


CLR 


e>6354 


56fl9 


CRLL 


L>KOMe>0024 


Involution routine 


56RC 


C2 


e>83b4 


Error? 


56RE 


BS 


GR0M@>56BR 


No , end 


56B0 


CEO 


e)63b^. >0I 


Same error? 


56B3 


BR 


GR0M@>4U7C 


Bad value 


56Bb 


CALL 


6K0Me)284C 




56B6 


DRTR 


>20 


Number too big 


56B9 


DHIR 


)6E 


56BR 


CONT 







Fetch 


I ine 


number on PRC: 




56BB : 


CtQ 


@>8342,>C9 


Token for line number 


56BE : 


BR 


GRGM@>5671 


Incorrect statement 


56C0 : 


XML 


>1B 


Fetch 1st byte 


56C2 : 


51 


(*>834R,@>8342 


56C5 : 


XML 


>1B 


Fetch 2nd byte 


56C7 : 


ST 


@>634B,§>8342 


Everything on PRC 


56Cfl : 


XML 


> IB 


Fetch byte 


56CC : 


RTN 





Scroll one line : 

56CD : MOVE >02E0 TO VDPe>0000 FROM VDP§>0020 Rll one line up 

56D4 : FMT Print empty line 

56Db : ... XPT=>00 Column 

56D7 : ... YPT=>17 Line 23 (last line, sine counted from 0i 

56D9 : ... 02' >7F' 2 x )7F 

56DB : ... IC >a0' 28 x >80 (Space with offset J 

56DD : . . . 02' >7F' 2 x >7F 

56DF : ... END FMT 

56E0 : RTN 



Convert string into number: 

56E1 : CLR @>83b4 Error clear 

56E3 : XML >10 L5N 

56Eb : CZ e>8354 Error? 
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56E7 


: B5 


GR0M§>56EE 




56E9 


: CRLL 


GR0M§>2a4C 




56EC 


: DRTR 


>20 


Number too big 




nnxn 


>bt 


56EE 


: RTN 






CRLL 


GCHRR: 






56EF 


: CRLL 


6R0Me>37aE 


Fetch and set column and row or 


56F2 


: CRLL 


6R0M§>578D 


Variable name from program 


56F5 


: MOVE 


>0006 TO e>634R 


FROM GROM§>50C0 1 on FRC 


56FB 


: 5T 


§>834B,§>837D 


Byte from screen 


56FE 


: SUB 


e>834B, >60 


Minus offset 


5701* 


: CHE 


e)834B, >64 


Greater than decimal 100? 


5704 


: BR 


6ROMe)570E 


No , i ump 


5706 


: EX 


e>834C,e>834B 


Convert 


5709 


: DIV 


e>834B, )64 




570C 


: INC 


e>834R 






: aML 


) 15 


Transfer value to variable 


5710 


: B 


GR0Me)361D 


End with reset XPT 


CRLL 


COLOR: 






5713 


: CRLL 


6R0Me)3767 


Fetch byte and first argument 


5716 


: CALL 


GR0Me>3779 


CFI with limit 16 


5719 


: DRDD 


e>834R. >030F 


Rdd offset color table 


571 D 


: XML 


>17 


VPU5H6 


571F 


: CALL 


6R0M§>376F 


Next value 


5722 


: CRLL 


GR0Me>3779 


CFI with Limit 


5725 


: DEC 


e>834B 


-1 


5727 


: ST 


e>830E,§>834B 


Save 


572R 


: 5LL 


e>830E, >04 


1st nybble 


572D 


: PRRS 


>B6 


Next value 


572F 


: CRLL 


GR0M§>3779 


CFI 


5732 


: DEC 


@>834B 


- 


5734 


: OR 


§>830E,§>834B 


Complete value for color table 


5737 


: XML 


>ia 


VPOP (fetch gruppe) 




: 3 1 


yDP*>834fl,§>830E Set color table 


573D 


: B 


GROM§>3620 


End of subprograms 


Convert floating point into 


line number: 


5740 


: CH 


e>834C. >b3 


Numeric ? 


5743 


: B5 


GR0Me>4D81 


String number mismatch 


5745 


: CLR 


e>8354 


5747 


: DCLR 


e>836C 




5749 


: XML 


>12 


CFI 


574B 


: CZ 


e>8354 


Error? 


574D 


: BR 


6R0Me>4D7C 


Bad value 


574F 


: CLOG 


@>834R, >80 


Negative? 


5752 


: BR 


GR0M§>4D7C 


Bad value 


5754 


: RTN 






5755 


: CLOB 


@>8300, >80 


Negative? 


5758 


: BR 


GR0M§>5767 


Yes, jump 


57Sfl 


: CZ 


@>8300 


0? 


575C 


: B5 


GR0M§)5763 


Yes, jump 


575E 


: ST 


6)8346,6} 8300 


Value in number 


5761 


: BR 


6R0M§>576D 




5763 


: DCLR 


e>834R 


Number = 


5765 


: BR 


GR0M§>576D 




5767 


: ST 


§>834R, >BF 


Negative 


576fl 


: ST 


§>834B.§>a300 


Value into number 


576D 


: XML 


>15 


Transfer number into variable 


576F 


: RTN 






Keyboard scanning for CRLL KEY usw: 


5770 


: ST 


6>8300,e>&34B 


Save mode 


5773 


: CRLL 


6R0M§>578D 


Fetch 1st variable 
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5776 : 


CEQ 


e > 8342 , > B3 


,? 


•^VVQ . 
/o : 


Dn 




No t G r ro p 


C77R . 


VMl 


> 1 D 


Fetch bytG 


577D : 


CRLL 


GRQMS > 5780 


1 CS^\_ll Cat *\J vol XC3U^.C 


5780 : 


i 5T 


§} 8374, @> 6300 




5783 : 


: MO^E 


>0008 TO @>834R 


FROM 6ROM§>50C0 1 on FRC 


5789 : 


: 5CRN 




Keyboard scanning 


5760 : 


; CLR 


§>8374 


Mode again 


576C ; 


; RTNC 




Set condition bit — key i! 


578D : 


; XML 


> 13 


Fetch name from program 


578F : 


; CL06 


VDP*)834R, >F8 


Test if numeric 


5793 ! 


: BR 


CR0M@>5671 


Incorrect statement 


5795 ; 


; XML 


>14 


Build stack entry 


5797 ; 


: XML 


> 17 


VPU5HG 


5799 ! 


: RTN 






5790 . 


; DRTR 


> 6000 , > R000 , > C000 , > SFBF , > OFFF , > 0006 


57RB ; 


; CEQ 


e>8342, >B7 


Token (? 


57R8 ) 


: BR 


6R0M8)5671 


No, error 


57RC : 


: RTN 






57RC ; 


; DRTR 


>0000 




bis 








57BE ; 


; DRTR 


>0000 




57C0 ; 


; LRLL 


GRGMe>40E7 


New free space for symbol 


5/C3 1 


; 5UB 


e>8373, >04 




57C6 1 


. DCEQ 


*>8373, >41C4 


Called by >41C4 (Close a 


57CB ■ 


: BR 


ur\une / o / 113 


No , go on 


57CD ; 


: CALL 


GR0M@>2a4C 


Warning 


57D0 : 


: DRTR 




I/O error 


57D1 ; 


: DRTR 


>13 




57D2 1 


; RTN 








onn 

HUU 


e>8373. >04 


Old substack pointer 


57D6 ; 


. QRLL 


6R0M@>284E 


Error 


57D9 ■ 


; DRTR 


>21 


I/O error 


57Dfl ; 


; • DRTR 


>13 




57DB 1 


: B 


GRQM§>201R 


Return Basic 


57DE ; 


; CRLL 


GR0M§>284E 




57E1 i 


: DRTR 


>21 


File error 


57E2 ; 


; DRTR 


>1D 




57E3 ; 


. CALL 


GR0Me>284E 




57E6 ; 


i DRTR 


>21 


Input error 


57E7 ; 


; DRTR 


>2a 




57E8 ■ 


■ TQl 1 


6R0Me>284E 




57EB ! 


: DRTR 


>21 


Data error 


57EC 1 


: DRTR 


>34 




57ED ; 


: RTN 






57EE : 


. DRTR 


>0000 




to 

57FC 


: DRTR 


>0000 




S7FE ; 


: DRTR 


)5F2E 





- 206 - 



REFERENCES TO EX I ENDED B05IC 



The function of the Extended Basic for use of TI99/40 is 
very similar to that of the Basic interpreter. For once 
the Basic program runs also under Extended Basic, and the 
Extended Basic uses several routines from ROM. 

Of course Extended Basic cannot directly uses the Basic 
interpreter. The Extended Basic interpreter is newly 
programed in the ROM of the module. But its form and 
functions are only little different from the Basic 
interpreter. GPL commands EXEC, PRR5E and CONT of course 
are not usable anymore. They are replaced by XML commands 
XML >74 is PRR5E, XML >75 is CONT and XML >76 replaces 
EXEC. 

The structure of the list in the GROM for the 
GPL-subprogram activated by Basic command CRLL, is also 
different; otherwise there would be problems with the 
compatibility to TI Basic when the Extended Basic module i 
inserted. Therefore the starting address of the routines 
in Extended Basic is put after the name of the Subprograms 
In Extended Basic, while the program runs in VDP ROM, ther 
is a subprogram list (Pointer on >633n) which is completed 
during prescan. The list has the same structure as the 
symbol list; there is a symbol list for each self -defined 
subprogram containing variables. 

Since Extended Basic can also use memory extension, two 
additional pointers are neccessary: 

>83a4 points to the highest usable address in the memory 
extension . 

>d366 points to the end of the free space in the memory 
extension . 

The GPL-substack is therefore placed higher. 

There is only one important exception in connection with 
the other pointers in Scratch-Pad-RRM as compared to 
TI-Basic: The Flag-Byte is located at >8345. 
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Due to a restrained information politic of the manu- 
facturer, there is not much known about the inside 
of the very successful Home Computer TI99/4A. 
This book therefore shall help the interested user 
to look into the secret of the operating system of 
the TI99/4A. 

In individual chapters the commented listings of 
the ROM's and the 3 GROM's contained in the 
TI99/4A are explained i.e. the complete operating 
system including Basic. The contents of this book 
is completed by a listing of all commands, used in 
the Graphic Programing Language and by short 
explanations to the commented listings. 



